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IDENTIFICATION 


PROGRAM CODE : AC -F912C -MC 
PROGRAM NAME : CZCMUCO CMR-11 MOST EXERCISER 
DATE CREATED: 30-MAY-79 
MODIFIED: 14-JAN-80, 26-NOV-80, 26-SEP-84 
MAINTAINER: SPECIAL SYSTEMS KANATA 


THE INFORMATION IN THIS yy TS SUBJECT TO CHANGE WITHOUT NOTICE 

MO SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT COR- 

PORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR 
ERRORS THAT MAY APPEAR IW THIS DOCUMENT. 


Bay 
DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE 
—_- OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 


FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DEC DOECUS OECTAPE 
MASSBUS POP UNIBIUS 
Q@BUS WAX CMR-11 


ee es oe 2 
Fi >irdy@rirdtdedil d 


= 7 ae ee ee ee 


| COPYRIGHT (C) 1979,1960,1964 BY DIGITAL EGUIPMENT OF CANADA LIMITED. 
ALL RIGHTS RESERVED 


SEQ 0001 


- 


SEQ 0002 
HISTORY 
MOD DATE NEW NUMBER REASON FOR MOD. BY: 
30-MAY -80 YC -2018€ -02 ORIGINAL PROGRAM TO TEST CMR D.G.W. 
MOST LOGIC. 
14 - JAN-80 AC -F912A-MC(CZCMUAO) ORIGINAL RELEASE TO $.0.C. (U.S.) 0.G.u. 
PRODUCT BECOMES CATEGORY "A" 
28 -NOV -80 AC -F 9128 -MC(CZCMUBO ) . CHANGE CNTRL om | FOR SFTWR SWITCH D.G.W. 
REG FROM CNTRL-S TO CNTRL-G 
.PRINT DEFAULT PARAMETERS AT 
START-UP. 
.ADO A CNTRL CHAR. AND A FLAG TO 
ALLOW PRINTING A PORT CONFIGURATION 
STATUS TABLE WHEN AVAILABLE. 
él TIME AT END-OF -PASS 
PORT LOOP BACK T AND 
THE EXERCISE PORTION. 
cT ae -RATE 
PRINTOUTS AT THE ETION OF THE | 
FIRST PASS OF THE LOGIC TEST SO 
THAT THE CORRECT I 
WITH THE CORRECT PORT NO. 
.ADD CODE WHICH PRINTS THE “gTave” 
EACH “REGULAR” REMOTE ON A 
PORT IN THE PORT CONFIGURATION 
STATUS PRINTOUT. 
| 26-SEP-84 AC -F912C -MC(CZCM.ICO) INCORPORATED PATCH (CZCMUB1) TO D.G.W s0.W 
CLEAR ‘MINUTES’ AFTER EACH HOUR 3D. 
. CHANGE DELAYS IN CERTAIN PARTS 10.0 
OF THE PROGRAM SO THAT 30.0 
DON'T OCCUR SIMPLY BE THE :0.W 
PROCESSOR IS AN '11/44 OR BECAUSE 30.0 
“CACHE” IS ENABLED. 30.0 
.ADO A SECTION TO THE ‘EXERCISER’ 30.0 
SO TWE USER CAN SELECT :0.W 
CMRO1 REMOTES ARE ON-L 30.0 
ARE 10 BE EXERCISED. THIS IS 10.0 
TO ORASTICALLY SHORTEN 30. 
TIME FOR “PER-CALL” CUSTOMERS. 30.0 
.ADDED PRINTOUT IN LOGIC TEST TO :C.W 
WARN USER TO DISCONNECT COMMUNICATIONS :0.W 
TO ALL REMOTES BEFORE CONTINUING. 10.0 





REQUIREMENTS 
RESTRICTIONS 
_ CAUTIONS 


| ASSUMPTIONS 

| OPTIONS / CONTROLS 

| LOADING 

| STARTING / RESTARTING 

| TEST DESCRIPTION 

START-UP 

| TEST SELECTOR 

LOGIC TEST 

| PORT LOOP -BACK 
MOST-REMOTE EXERCISE 

| MAINTENANCE ROUTINE 

| END OF PASS 

| ERRORS 


SSSOGGGHS8 On OW es wen 
NOUS wlr 


~ 
°o 
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THIS PROGRAM IS TO BE USED TO TEST THE COMPACT MICRO REMOTE 
HOST HARDWARE (CMR-11 M6990 OR CMV11 M7161-M7162)AND TO oe 
at ag agrees gh BETWEEN THE HOST HARDWARE ON THE UN 


THE PROGRAM IS DIVIDED INTC THREE PARTS, PLUS A FOURTH MULTI- 
PURPOSE “MAINTENANCE” ROUTINE: 
- HOST LOGIC TEST 
- PORT LOOP-BACK TEST 
- CAR EXERCISE ROUTINE 
- “MAINTENANCE” ROUTINE 
THE HOST LOGIC TEST IS INTENDED TO BE RUN WITH ALL REMOTE 
COMMUNICATION OI 
BACK TEST. THE CAR EXERCISE ROUTINE, MOWEVER, CAN BE RUN 
WITHOUT CHANGING ANY OF THE HARDWARE FROM I 
— FOR THE DETAILS OF EACH TEST, SEE THE ACOMPANYING 


PORT JUMPERS: 
FOR PORT LOOP BACK TEST A 
10 BERG PLUG IS REQUIRED 


OTHER: 


THE PROCESSOR MAINDECS AND CONSOLE TERMINAL TESTS 
MUST HAVE — RUN SUCCESSFULLY BEFORE RUNNING 


THIS 





4. 


| 6.2 


RESTRICTIONS 


IT IS NOT ADVISABLE yh RUN THE LOGIC TEST OR THE 
PORT LOOP-BACK TEST ON AN “ON-LINE” SYSTEM WITH 
THE REMOTES ATTACHED AS “ON-LINE” DEVICES MAY BE 
AFFECTED. THE CMR EXERCISE ROUTINE, HOWEVER, 

MAY BE RUN UNDER THESE CONDITIONS. 


COMMUNICATION PORTIONS OF THESE TESTS FROM HOST 
TO REMOTE AND REMOTE TO HOST MAY TAKE A CONSIDER- 
ABLE LENGTH OF TIME IF THE PORT BAUD RATES ARE SET 
LOW (300 BAUD). 


CAUTION MUST BE EXERCISED WHEN USING THE “MAINT - 
ENANCE” ROUTINE SO THAT Ma IONS ARE NOT STARTED 
WHICH WILL COMPROMISE ANY “ON-LINE” SITUATIONS. 


IN THE PORT LOOP-BACK TEST, IT Re gt gy Be 
OPERATOR TYPES <CR> INDICATING "READY", HE HAS LOOPED 
nao” TO INPUT PHYSICALLY, AND HAS SELECTED THAT PORT 


IT IS ASSUMED, IN THE CMR EXERCISE vying THAT THERE 
ARE REMOTES ATTACHED (AT LEAST ONE) AND THAT THEY ARE 
=e. IF THIS IS NOT THE CASE, THE ROUTINE WILL 


OPTIONS / CONTROLS 


SUR « MEANS 

100000 DON'T WALT AETER ERRORS 

020000 LOOP _ON ERRONEOUS ROUTINE 

004000 INHIBIT PROGRAM ITERATIONS 

002000 DON'T PRINT END OF PASS 
CONTROL CHARACTERS 

CNTRL -C RESTART TEST SELECTOR 

CNTRL -T " " ‘ 

CNTRL -G SHOM “SMR” OPTIONS 

CNTRL -P PROCEED 

CNTRL -0 ENTER “MAINTENANCE” DEBUG ROUTINE 


SHOW CONSOLE FILL COUNT 
CNTRL -A PRINT PORT CONFIG TABLE 


ee a ee | nee ee = ee we 


SEQ 0005 
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9.1 


NON SWR PROCESSORS 
ON PROCESSORS WITH NO PHYSICAL SWITCH REGISTER 
EXAMINED OR CHANGED BY the 
PRINTOUT: SWR = XXXXXX : WILL SHOW THE OPTIONS 
MANGE 


AND THE OPERATOR CAN LEAVE THEM (<CR>) OR C 
THEM CYYYYYY<CR>), THEN PROCEED (P) 


THE PROGRAM IS SUPPLIED IN .ABS FORMAT AND IS LOADED 
BY MEANS OF THE ABSOLUTE LOADER OR THE "LOAD" COMMAND OF 
THE DIAGNOSTIC MONITOR XXDP. 


STARTING / RESTARTING 


STARTING ADORESS : 200 
RESTARTING ADDRESS : 204 


TEST DESCRIPTION 


INTERFACE ADDRESS: (NNNNNN) 
INTERFACE VECTOR: (NNN) 
INTERFACE PRIORITY: (NN) 


THE VALUE SHOWN IN PARENTHASIS . DEFAULT VALUES WHICH WILL BE 
USED IF ONLY <CR> IS ENTERED. NEW a a - S ENTERED (XXX), IT 


IF A 
WILL BE USED AS THE DEFAULT AT FUTURE STAR 


ee Bg ng ty hae yp Ape ge THE SWITCH 
OPTIONS WILL NOW BE SHOWN AND MAY BE CHANGED (AS IN 06). 


SS 


9.2 


Hi 


TEST SELECTOR: 
SELECT TEST (4 = HELP): 
(HELP MESSAGE READS: ) 
SELECT ONE OF THE FOLLOWING: 


CR OR 1 = LOGIC TEST 

2 = PORT LOOP-BACK TEST 

3 = CMR EXERCISE 

4 = THIS HELP INFO 
CNTRL-C = TEST SELECT 
CNTRL-G = SWITCH OPTION SELECT 
CNTRL-F = F T SELECT 
CNTRL-O = DEBUG ROUT WHICH ALL 


CNTRL-A = PRINT PORT CONFIGURATION 
STATUS TABLE IF AVAILABLE. 
PROCEED FROM SW MONITOR 


LOGIC TEST: 


UPON ENTERING THE LOGIC TEST, THE OPERATOR IS PROMPTED TO DISCONNECT ALL REMOTES 
AND TYPE <CR> WHEN READY. EITHER SWITCH THE LIMITED DISTANCE MODEMS TO LOCAL LOOPBACK 
OR DISCONNECT THE CABLE TO THE FIRST REMOTE ON EACH PORT. THEN TYPE <CR>. 


REGISTER DEFINITIONS 
* CONTROL € STATUS REGISTER 


CSR 
SPAR = SCRATCHPAD ADDRESS REGISTER 
SPDR = SCRATCHPAD DATA REGISTER 


(CSR) tater te te ter et Oe hee Ee 


; & ' Geet §¢§ 8 EE SE 
. . 


me. st Se S&S & &. © £4 FP COPS Ben ST FUN 
hawt eee : : ‘2 =e i | 
CHGSTA_________: 2 i oe a th 2, Peewee meat 
rab see 9 cigeriege ane : ; £2 2 f Semnenssssened RT 
3 $ 3 H 3 
Re nr Tirnamcnmmomaneema 
et ee oF ress ncienciton mie cinta nomi 


9.5 


CSPAR ) Be ua bd 4 4 654%3e21 : 


1 = RESUT 


(SPOR ) SS oes» 9 . 4 > ee 2 3 4 


> (es 


SCRATCHPAD DATA 


THE FOLLOWING TESTS SRE PERFORMED: 
TEST OF THe PWR-UP yg 


CHECK SS KEYS 
SIMPLE FUNCTIONS TEST 


PORT LOOP-BACK TEST 


THE PORT LOOP-BACK TEST USES THE PORT LOOP MAINTENANCE 
FUNCTION OF THE HOST FIRMWARE.THE TEST WILL RUN WITH 
ONE PORT OR WITH ALL PORTS SELECTED: 

PORT @ (<CR> = ALL): 

THE OPERATOR MUST ENSURE THAT THE PORT(S) ae 

TESTED ISCARE) LOOPED FROM XMTR TO RCVR. THIS MA 
BE DONE PLUGGING JUMPER PLUGS INTO THE HOST PORT 
PLUGS OR BY SWITCHING THE LOM (M6996) EITHER AT THE 
HOST, OR AT ANY ONE REMOTE ON A GIVEN PORT, TO “LOOP- 
BACK". (SEE CMR-11 SYSTEMS OPTION DESCRIPTION SEC. 2.5.1). 


CMR HOST-REMOTE EXERCISE 


THIS ROUTINE WILL PROMPT THE USER FOR EITHER A DETAILED 
RUN OR A GENERAL RUN: 


“DETAILED(1) OR GENERAL(O)...[0) " 
DETAILED 


er 


RESPOND BY TYPING A 1 IF YOU WANT ALL POSSIBLE REMOTE 
NUMBERS SCANNED FOR AVAILABILITY, THEN THE DIAGNOSTIC 
FUNCTION IS RUN ON EACH REMOTE FOUND. THIS TAKES SEVERAL 
MINUTES AT THE FASTEST BAUD RATE JUST TO FIND WHAT REMOTES 
ARE ON-LINE (EVEN IF THERE IS ONLY 1). 





GENERAL 


RESPOND BY TYPING AO (OR JUST <CR>) IF YOU WANT TO TELL 
THE ROUTINE + gl REMOTES ARE ON-LINE AND ONLY THOSE WILL 
BE SCANNED. THEN & “FORCE INTERROGATE” FUNCTION IS DONE 
ON EACH REMOTE FOUND. 


IF ‘GENERAL’ IS CHOSEN, THE USER IS PROMPTED FOR THE 
REMOTE NUMBERS HE WISHES TO BE SCANNED AS FOLLOWS: 


TYPE PORT/REMOTE @'S (400*HELP, <CR>=END) 
1 REM @ 
THE USER IS COMPELLED TO ENTER AT LEAST 1 REMOTE NUMBER 
BECAUSE THE PROGRAM KEEPS PROMPTING FOR re — REMOTE 
IF JUST A <CR> IS TYPED FOR THE FIRST REMOTE 


EACH ENTR ee ee 
OF 32 ENTRIES ARE ALLOWED. 


WHEN ALL REMOTE NUMBERS ARE ENTERED, TYPE ONLY <CP> IN 
RESPONSE TO THE PROMPT AND THE EXERCISER WILL BEGIN. 


THE ROUTINE STARTS A BACKGROUND SCAN AND WAITS FOR THE 
END OF A SCAN OF ALL REMOTES ON ALL PORTS ("THRU"). 
ay Be ho a he ge THE BELL ON THE 


AT TION OF SCAN, 
THE PORT uke STATUS AS FOLLOWS: 
0(1) 1(1) 2(1) 3(1) 
Pont a1 100(1) 101€1) 102(0) 103(0) 
SHOWING EACH PORT ONLY IF THERE ARE REMOTES ON THE PORT 
Wr! CH ARE “REGULAR” AND SHOWING THE REMOTE “STATE” WHERE: 


(2) = ACTIVE 
eeseeseseee THIS PRINTOUT ALSO OCCURS IF CNTRL-A sesecessesce 
seseseseses IS TYPED ANY TIME AFTER THE FIRST PTTiittiiiit 
eeceeseeeee TABLE IS PRINTED. PTTTT Ti tttity 


FOLLOWING THIS PRINTOUT, THE “DIAGNOSTIC” OR “FORCE 
TE” FUNCTION IS ai ane ON ican ioe PRESENT. 


TE FUNCTION IF " RAL” 
OF E » ALL TES 
WILL BE EXERCISED WITH THE “DIAGNOSTIC” FUNCTION 
OR THE TE ON ALL 


REMOTE STATUS WILL BE 
eee ~ 9 STATUS CHANGE eee 


. REGULAR 
REMOTE STATUS — IRREGULAR 
vYYY 





K1 


“MAINTENANCE” DEBUG ROUTINE 


CAUTION SHOULD BE EXERCISED WHEN USING THIS ROUTINE 
SEE SECT. 4. 


THIS ROUTINE OPERATES LIKE A SIMPLE “ODT”. HOWEVER, 
IT ALLOWS E 70R ITING ONLY IN T 
CMR-11 SCRAT MEMORY. YOU CAN ACTUALLY ENTER 


EACH WORD OF THE ON ACCORDING TO CHAPTER 
3 OF THE CMR11 SYSTEMS OPTION DESCRIPTION (YC-C318C-00). 


THEN YOU START THE FUNCTION BY TYPING "G". THE 
RESULTS ARE GIVEN BACK 7O YOU IN THE RESULTS SCRATCHPAD 
AT ADDRESS 1000 AND UP. 


FOLLOWING ARE THE OPERATING 
CHARACTERS : 
XXXX/ (SLASH) OPEN AND DISPLAY CONTENTS 
OF THE SCPD ADDR "“XXXx" 


<CR> CRETURN ) CLOSE THE CURRENT ADDRESS. 


<LF > (LINE FEED) CLOSE THE CURRENT ADDR. AND 
OPEN THE NEXT SEQUENTIAL ONE. 


XXXX<CR> DEPOSIT “XXXX* IN THE CURRENTLY 
OPEN ADDRESS AND CLOSE IT. 


XXXX<LF > DEPOSIT “XXXX” IN THE CURRENTLY 
OPEN ADDRESS, CLOSE IT AND 
OPEN THE NEXT SEQUENTIAL ONE. 


G SET “STFUN” OR “MAIN” TO START 
THE CURRENTLY LOADED FUNCTION 


P PROCEED OUT OF THE ‘DE-BUG' 
ROUTINE AND RETURN TO THE SPOT 
WHICH WAS LEFT WHEN CNTRL-O 
WAS TYPED. CANY PROMPTS WILL 
BE RE-ASKED). 


OWS EXAMINATION OF THE HOST 


(CSR ADDR)/ ALL 
CSR REGISTER ONLY. 


UNIBUS ADORE 
IN THIS FASHION. 





NO OTHER 
SSES MAY BE EXAMINED 


a 
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10. 


ee + ae eee ee TR 


Li 


END OF PASS 


m THE END OF EACH PASS OF ANY OF THE THREE TESTS, 
AN “END PASS” 2 a 9g IS PRINTED UNLESS INHIBITED BY 
SWITCH OPTION BIT 1 
THE PRINTOUT IS IN’ THE FOLLOWING FORM: 


END PASS @ X ERR. CNT. = Y 
WHERE ; 


X = THE PASS NUMBER IN DECIMAL 
Y = THE TOTAL NUMBER OF ERRORS SINCE START (DECIMAL). 


Bh A ge By 
THEN “ee OVERFLOW ee” WILL BE PRINTED INSTEAD. 

IF SWITCH OPTION “BIT 11 = 0, THIS MESSAGE WILL BE 

PRINTED ONLY AFTER 10 (OCTAL) PASSES THROUGH WHICHEVER 
TEST IS RUNNING. OTHERWISE, IT IS PRINTED EVERY PASS. 


TIME IN THE PORT LOOP BACK TEST AND THE CMR ers ROUTINE, 
ING 
THAT THE PROCESSOR IS EQUIPPED WITH A REGULAR LINE-TIME 
CLOCK. THE FORMAT OF THE TIME PRINTOUT IS AS FOLLOWS: 
EL.TIM. HH:MM:SS:TT 
(HOURS, MINUTES, SECONDS, AND TICKS WHERE ONE TICK = 1/60 SEC.) 


FOR THE MOST PART, ERROR PRINTOUTS ARE SELF -EXPLANATORY. 
THE ERROR NUMBERS AND ADDRESSES CAN BE USED FOR REFERENCE TO 
THE PROGRAM LISTING FOR FURTHER DETAILS. 


ALL ERRORS WILL CAUSE TME CPU TO “HALT” OR 
+ ge Bry fe og BE gh Fy hg 


HAS 

oc LOGIC AND 
PROGRAM TO “LOOP” IN THE ERROR CAUSING CODE BY SETTING 

SWITCH OPTION BITS 15,14 AND 13 AND CONTINUING. 


oe a i a a rr re ee ee ee ow ee we ee 


czcnuco 


| 


pope pepe prpopepoenpepepone tiny 3 


(v)- 


2 


# HOST EXERCISE MACRO VO4.00 02:24:05 


SYMBOLIC DEFINITIONS 
MACRO DEFINITIONS 


MAINTENANCE ROUT 
UTILITY ROUTINES 
“SWITCH” MONITOR ROUTINE 
+ a ote PRINT ROUTINE 


YBOARD INPUT ROUTINE 
BINARY 10 ASCII CONVERSION ROUTINES 
CONSTANTS, VARIABLES € ACSII 





“an 


mr ee. 


N1 


—CZCMUCO CMR(V)-11 HOST EXERCISE MACRO VO4.00 02:24:05 PAGE 1 


OBsCUSwhor 


177776 
177570 
032502 


TLE CZCMUCO CMR(V)-11 HOST EXERCISER 


TI 
.SBTTL _— DEF INI TIONS 


-NLIST 

-LIST ME 
INTERNAL DEFINITIONS: 
PS . 177776 
HWSWR es 177570 
SSWR . SWREG 
sREGISTER DEFINITIONS: 
RO ® 60 
Ri . Lae 
Re . Be 
R3 = 83 
Ra ® ua 
RS * 65 
SP * #6 
PC 2 67 
sBUS REQUEST DEFINITIONS: 
P7 * 340 
P6 ° 300 
PS s 240 
P4 . 200 
P3 e 140 
P2 . 100 
Pl ° 40 
PO . 0 
sBIT DEFINITIONS: 
B15 ad 100000 
614 . 40000 
813 * 20000 
612 ad 10000 
611 e 4000 
B10 ad 2000 
B09 s 1000 
B08 . 400 
807 . 200 
6806 ad 100 
BOS . 40 
B04 s 20 
603 ° 10 
802 s 4 
B01 ° 2 
B00 . 1 
Isp ° BEGIN 


.SBTTL MACRO DEFINITIONS 


sINITIAL STACK POINTER 





CZCMICO CMR(V)-11 HOST EXERCISE MACRO V04.00 02:24:05 PAGE 1-1 
MACRO DEFINITIONS 


$8 
$9 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
7S 
7% 
77 
78 
79 
80 
81 
83 
84 
2) 
86 
87 
88 
69 
90 
31 
92 
93 
94 
9S 
96 
97 
98 
9 
100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 


000001 


anon ° sINITIAL ERROR NUMBER 
; MACROS 


peeeesee ERROR P eeccces 


BNE . +20 
MOV @MSG ,RO 
MOV @P ,ERRNUM 
JSR PC ERR 
N . Nel 
. ENDM 
-MACRO DATERR P,MSG 
peeceeseoe ERROR P coesece 
BIT 0814,8SR 
BME .°20 
MOV @SG ,RO 
MOV 9? ,ERRNUM 
JSR PC ,.DERR 
N © Nel 
-ENDM 
-MACRO HLT 
JSR PC, SWHLT 
. ENDM 


sPRINT MACRO (MSG ADOR IN RO) 
-MACRO PNTM A 


MOV @A,RO sPRINT MESSAGE 
JSR PC, TYPOUT 
. ENDM 


sPOINTED TO BY A 


s INTER-POP-11 COMPATABLE MOVE TO PS 
-MACRO MTPS SAC, 7LLL 
MOV SAC, -( SP) 
MOV LLL, -(SP) 
RTI 


- ENOM 


LLL: 


sREGISTER SAVE AND RESTORE MACROS 


-MACRO REGSAV 
JSR RS ,REGSAV 


CZCHICO CMR(V)-11 HOST EXERCISE MACRO V04.00 02:24:05 PAGE 1-2 SEQ 0015 
MACRO DEF INI TIONS 

115 .MACRO REGRES 

116 JSR RS, REGRES 

11? NOM 
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CZCMUCO CMR(V)-11 MOST EXERCISE MACRO VO4.00 02:24:05 PAGE 2 
TRAP CATCHERS 


| 
| 
1 .SBTTL TRAP CATCHERS 
2 .ENABLE ABS 
5 000000 : . 
4 000000 000002 DPCSTA: .WORD .+2 
5 000002 000000 .WORD 0 
6 000004 017434 .WORD OVATST :TRAP BAD DEVICE ADDRESSES 
7 000006 000340 .WORD 340 
8 000176 .REPT 126. 
9 . WORD .¢2 
10 .WORD 0 
11 .ENOR 
000010 000012 WORD 02 
000012 000000 .WORD 0 
000014 000016 WORD 02 
000016 000000 .WORD 0 
000020 000022 WORD 02 
000022 000000 .WORD 0 
000024 000026 .WORD 02 
000026 000000 .WORD 0 
000030 000032 WORD 02 
000032 000000 .WORD 0 
000034 000036 WORD 02 
000036 000000 "WORD O 
000040 000042 WORD 02 
000042 000000 .WORD 0 
000044 000046 WORD 02 
000046 000000 "WORD 0 
000050 000052 WORD 02 
000052 000000 "WORD 0 
000054 000056 WORD 02 
000056 000000 .WORD 0 
000060 000062 WORD 02 
000062 000000 .WORD 0 
000064 000066 WORD 02 
000066 000000 .WORD 0 
000070 000072 WORD 02 
000072 "WORD O 
000074 000076 [WORD #2 
000076 -WORD 0 
| 000100 000102 WORD. 02 
000102 -WORD O 
000104 000106 WORD. 02 
000106 .WORD 0 
000110 000112 "WORD #2 
000112 -WORD O 
| 000114 000116 WORD 02 
000116 -WORD 0 
| 000120 000122 "WORD #2 
000122 [WORD 0 
000124 000126 WORD 02 
000126 -WORD O 
000130 000132 .WORD 02 
| 000132 .WORD 0 
000134 000136 .WORD 02 
| 000136 "WORD «(0 
| 000140 000142 "WORD 2 
000142 -WORD 0 





000146 


O- o- Oo: Oo: Oo Oo Oo: Oo: GO Oo: Oo: GO: Oo Oo: GO: Oo: GO Oo Oo: GO: GO Oo: Oo GO: O- GO GO OC 


° ° 
wm ff 


2 


* 


2 


CZCNICO CMR(V)-11 HOST EXERCISE MACRO VO4.00 02:24:05 PAGE 2-1 
TRAP CATCHERS 
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TRAP CATCHERS 
000326 .WORD 0 
000330 000332 .WORD  . 2 
000332 .WORD 0 
000334 000336 . WORD .*2 
000336 .WORD O 
000340 000342 WORD sw 
-WORD O 
000344 000346 . WORD ,02 
000346 -WORD O 
000350 000*52 WORD oo 
-WORD O 
000384 000356 .WORD  .2 
000356 000000 -WORD O 
000360 000362 -WORD .+2 
000362 000000 -WORD O 
000364 000364 -WORD .+2 
366 -WORD O 
009370 000372 . WORD .+2 
000372 -WORD O 
000374 000376 WORD .*2 
000376 000000 -WORD O 
000400 000402 -WORD .*2 
000402 000000 -WORD O 
000404 000406 -WORD .*2 
000406 -WORDB O 
000410 000412 WORD -*e 
000412 -WORD O 
000414 000416 -WORD .#2 
000416 000000 -WORD O 
000420 000422 -WORD .92 
000422 000000 -WORD O 
000424 600426 WORD -*2 
000426 000000 -WORD O 
000430 000432 -WORD .2 
000432 -WORD O 
000434 000436 . WORD .*2 
000436 000000 WORD O 
000440 000442 -WORD .92 
000442 000000 -WORD O 
000444 000446 -WORD .02 
-WORD O 
0004.0 000452 . WORD 02 
000452 000000 .WORD O 
000454 000456 -WORD .*2 
000456 -WORD O 
000460 000462 -WORD .#2 
000462 000000 -WORD O 
000464 000466 -WORD .+2 
000466 000000 -WORD O 
000470 000472 -WORD .02 
000472 -WORD O 
000474 000476 -WORD .+2 
000476 000000 -WORD O 
000500 000502 -WORD .*2 
000502 000000 -WORD O 
000504 000506 -WORD .+2 
000506 000000 -WORD O 
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TRAP CATCHERS 


000512 


+ * > 
yy fw fH 


o-~ so o-sd- Oo Oo: Oo: Oo: oO: Ot Ot CO 


o- o: &+: Oo: Oo Oo O+ SO: 


> 
~ 


-* O- O- O+- O+- CO: CO: CO Oe 
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Ss 


TRAP CATCHER 


000000 
0006 76 


PCPEEEEELEEEE EEE LEEE EEE EEEE EEE EEE 


o- 6: Oo: Oo: Oo: Oo: Oo: Oo Oo O- O 


o- Oo: ~ o-oo oo: 
~ 


Ho 





SEQ 0020 





EE ES 


Ie 
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SYMBOLIC LISTING 


1 


BOs Swf 
: 
LY 


000200 
000167 
012706 
000005 


000167 
002000 
012706 
000005 


030402 


017374 
030304 


164000 


BEGIN: 


PRMT1: 


PRMT2: 


-SBTTL SYMBOLIC LISTING 
200 


ep BEGIN 
MOV @Ise,sP 
RESET 
UMP RESTRT 

. 2000 
MOV eIsp,sP 
RESET 
MTPS = @P7 
MOV @P7,-(SP) 
MOV 064%, -(SP) 
RTI 
CLR DEVER 


PEEP EECEP CELT EEee MELEE EPP Ey CEEE 
3 


KBBUF , 0776 


sINITIALIZE THE STACK 
sCLEAR THE WORLD 
sSTOP INTERRUPTS 


sPREPARE TO CHECK FOR LSI-11 


sCHECK FOR PSW ESET FLAG 
sSET UP TO TRAP IF NO SUR. 


sSET UP TO CHECK IF ANY HD SUR 
SSE IF IT’S THERE 
sNULLS AFTER RESET :0.W 001 


sPRINT MESSAGE 

sPOINTED TO BY TSTHOR 

sASK FOR 1ST UNIBUS ADOR OF CMR-11 
sPRINT MESSAGE 

sPOINTED TO BY FRAD 

sLOAD DEFAULT ADDRESS 

sGO PRINT DEFAULT 

sLOAD RETURN ADDRESS 

sGET KBD INPUT 


sIS IT WITHIN LIMIT? 
a TEST IT 

ERROR € ASK AGAIN 
SPRINT MESSAGE 
sPOINTED TO BY AGAIN 


sIS IT A GOOD ADDR? 

3sSET UP FOR FURTHER TRAPS 

sALLOW CLOCK TO FUNCTION 

sREPLACE CMR-11 DEFAULT ADDRESS ;0.W 001 
SASK FOR DEVICE VECTOR 

sPRINT MESSAGE 

sPOINTED TO BY DVECT 

sLOAD DEFAULT VECTOR 

3GO PRINT DEFAULT 

sLOAD RETURN ADORESS 


sGET KBD INPUT 
sIS IT WITHIN LIMITS? 


SEQ 0021 


i ce a ee 
1 


Je | 


002542 012746 000340 MOV oP7,-CSP) 
002546 012746 002554 MOV 064%, -(SP) 
002552 000002 


SEQ 0022 
| CZCMICO_CHR(V)-11 HOST EXERCISE MACRO VO04.00 02:24:05 PAGE 3-1 
| SYMBOLIC LISTING 
46 002272 101406 BLOS PRNT3 sYES. GET PRIORITY 
47 002274 PNTM AGAIN 3NO, ERROR AND ASK AGAIN 
002274 012700 022624 MOV @AGAIN,RO SPRINT MESSAGE 
004767 016252 JSR PC, TYPOUT sPOINTED TO BY AGAIN 
48 002304 000167 177712 UMP PRMT2 
49 002310 016767 017214 030202 PRMT3: NOV KBBUF , VECTOR sREPLACE CMR-11 DEFAULT VECTOR ;0.W 001 
50 002316 PNTM DVPRIO sASK FOR CMR-11 PRIORITY 
002316 012700 022703 MOV @OVPRIO,RO sPRINT MESSAGE 
002322 004767 016230 JSR PC, TYPOUT sPOINTED TO BY DVPRIO 
S51 002326 016767 030172 017174 MOV FKPRIO, KBBUF sLOAD DEFAULT PRIORITY 
S52 002334 004767 015252 JSR PC ,PROFLT :GO PRINT DEFAULT 
53 002340 012767 002310 030104 MOV @PRMT3,PCONT sLOAD RETURN ADORESS 
S4 002346 004767 016246 JSR PC, INPKB sGET KBD 
SS 002352 026727 017152 00007 CMP KBBUF , 07 'IS IT WITHIN LIMITS? 
56 002360 003406 BLE PRMT4 ;LOW ENOUGH, OKAY 
57 002362 PNTM AGAIN 3NO, ERROR AND ASK AGAIN 
002 012700 MOV »RO sPRINT ME 
002366 004767 016164 JSR PC, TYPOUT sPOINTED TO BY AGAIN 
$8 002372 000167 177712 une PRMT3 
59 002376 026727 017126 000004 PRMT4: CHP KBBUF , 04 sHIGH 
60 002404 002006 BGE PRHTS sYES, OKAY 
61 002406 PNTM AGAIN NO, & ASK AGAIN 
002406 012700 MOV @AGAIN,RO sPRINT MESSAGE 
002412 004767 016140 JSR PC, TYPOUT sPOINTED TO BY AGAIN 
62 002416 000167 177666 MP PRMT3 
63 002422 006367 017102 PRMTS: ASL KBBUF 
006367 017076 ASL KBBUF 
65 002432 006367 017072 ASL KBBUF 
66 002436 006367 017066 ASL KBBUF 
67 002442 006367 017062 ASL KBBUF sSHIFT IT INTO PLACE 
002446 016767 017056 030004 MOV KBBUF ,PRIO sLOAD NEW PRIORITY 
69 002454 004767 015066 JSR PC ,DEVGEN sGENERATE CMR-11 ADDRESSES 
71 sTEST FOR CLOCK CSR ADDRESS AND SET 
7 sCLOCK FLAG ACCORDINGLY: 
74 002460 112767 177777 027705 mova @-1,CLKFLG sSET CLOCK FLAG 
75 002466 012737 002572 000004 MOV @CLKTRP , 804 sSET UP TO TRAP 
76 002474 005777 030032 TST @_cs atest LINE CLOCK STAT. 
7 A TRAP WILL CLEAR FLAG. 
? sCLEAR OUT ALL TABLES FOR START-UP 
81 002500 005067 026622 CLR EXTBL1 
82 002504 005067 027016 CLR EXTBL2 
83 002510 005067 027212 CLR EXTBL3 
64 002514 005067 027406 CLR EXTBL4 
6 002520 012737 017654 000004 RESTRT: MOV OHDER , 804 ;RESET TRAPS 
87 002526 012737 002600 000100 MOV @CLKINT , 86100 :SET CLOCK VECTOR 
88 002534 012737 000340 000102 MOV 340, 80102 : 
89 062542 MTPS) =—s-_-«@P7 sRAISE C.P. PRIORITY 





ee 


a a a a a a TS 
a ee eee ee ee war iniie 


Ke 
-CZCMUCO CMRCV)-11 HOST EXERCISE MACRO VO4.00 02:24:05 PAGE 3-2 SEQ 0023 | 
| SYMBOLIC LISTING 
91 002554 005767 027724 TST SWRFLG _Sur- 
$e 0360 901802, tM ee ieiasi abit alans 
94 002566 000167 000102 1s: UMP ss BCONT 
3€ 002572 105067 027575 CLKTRP: CLRB  CLKFLG }CLEAR CLOCK FLAG 


| 
' 
| 
| 
; 
j 
1 
j 


04 002576 000002 RTI sAND RETURN 








CZCMICO CMR(V)-11 HOST EXERCISE 
SYMBOLIC LISTING 


fur 


: 
cs 


Saou au 


10 002632 
ae Soaeas 


177777 
027602 
027576 


a. 
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sLINE CLOCK SERVICE ROUTINE. 
; UPDATE RUN TIME CLOCK. 


027564 CLKINT: MOVB 
INCB 
000074 


000074 


000074 CMPB 
BLO 
CLRB 


INCB 
CLKEXT: RTI 


@-1,CLKFL1 
TICKS 
TICKS , #60. 
CLKEXT 


sSET “CLK TICKING” FLAG 
eal | TI 


sAND UPDATE HOURS 
sRETURN FROM CLOCK INTERRUPT 


;0.W OO1 


| CZCMICO CMR(V)-11 HOST 
| SUPERVISOR DISPATCH 


z 


x 8 o 
g 
z 
: 
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016514 
027347 
000100 
000 


177514 


016536 
027452 


BCONT: 


BCNTO: 
BCNT1: 


BCNTS3: 
BCNT2: 


BCNT4: 


TSTRSK: 


HLPASK : 


.SBTTL SUPERVISOR DISPATCH 


RESET 
MTPS 
MOV 


MOV 
RTI 


oP7 
oP7, -(SP) 
0643, -(SP) 


| 
sALWAYS DO RESET UPON ARRIVAL 
sKILL INTERRUPTS 


sCLEAR CONFIG FLAG 
as CLOCK TICKING FLAG 
CLEAR RUN TIME CLOCK TIME 


sCLEAR “FILL oy! SAFETY FLAG” 
“DEBUG” FLAG 


sCLEAR 

SNULLS AFTER RESET :0.W O01 

sPRINT “SELECT TEST (<CR>=HELP)” 
MESSAGE 


sPRINT 
sPOINTED TO BY TSTSEL 
sDEFAULT LOGIC TEST 


sCHECK IT FOR “1” 
sIF = 1, DO LOGIC TESTS 
sIS THERE A CLOCK CSR? 
<i FORGET IT. 

ENSURE IT'S IDLE 
‘oO TO LOGIC TEST 
sCHECK IT FOR “2” 


sIS THERE A CLOCK CSR? 
sNO, FORGET IT 


S, ENABLI 
sIF "3" DO EXERCISE. 


3D0ID HE TYPE A 

3NO, BUT HE HAD’ SETTER! ! 
sPRINT HELPFUL INFO 
sPRINT MESSAGE 

sPOINTED TO BY HELPM 
AND A 


. = 

sPRINT “IF HELP IS REQ'D...” 
sPRINT MESSAGE 

sPOINTED TO BY HLPOSR 





rr 


CZCMUCO CMR(V)-11 HOST EXERCISE MACRO VO4.00 02:24:05 PAGE 6 
HOST LOGIC TEST 
1 .SBTTL HOST LOGIC 
2 
3 
4 ; START OF LOGIC TEST. PRINT HEADER THEN ASK USER TO DISCONNECT :0.W O01 
5 3; ALL REMOTE COMMUNICATIONS SO NO ERRORS OCCUR THAT WAY, THEN GO. :0.W OO1 
6 
7 003160 005067 027330 LOGTST: CLR VERFLG sCLEAR VERSION PRINT FLAG 
6 003164 012767 000010 027246 MOV #10, ITEP sSET ITERATION COUNT 
9 003172 005067 027250 CLR PASCNT ;CLEAR PASS COUNT 
10 003176 105067 027203 CLRB OFLOF sCLEAR “OVERFLOW” FLAG 
11 003202 005067 027230 CLR ERRCNT sCLEAR ERROR COUNT 
12 003206 PNTM LGKTSM sPRINT “LOGIC TEST” 
012700 MOV @LGKTSM,RO sPRINT MESSAGE 
3212 004767 015340 JSR PC, TYPOUT sPOINTED TO BY LGKTSM 
13 003216 PNTM BRKCOM sPRINT “CISCONNECT REMOTES” 30.W O01 
3216 012700 024335 MOV @BRKCOM,RO sPR MESSAGE 
004767 015330 JSR PC,.T sPOINTED TO BY BRKCOM 
14 003226 CRPRM: PNTM sPRINT “TYPE <CR> WHEN READY” 30.W O01 
012700 024777 MOV @TYPCR RO sPRINT MESSAGE 
003232 004767 015320 JSR PC, TYPOUT sPOINTED TO BY TYPCR 
15 003236 012767 003226 027206 CRTST: MOV @CRPRM .OCONT 3sSET REPROMPT POINTER 30.W 001 
16 003244 012767 001236 016256 MOV #1236 , KBBUF 3LOAD ANY DEFAULT VALUE 30.W O01 
17 003252 004767 015342 JSR PC. INPKB 3sGET KEYBOARD INPUT 30.W O01 
18 003256 005067 027170 CLR PCONT 30.W 001 
19 003262 026727 016242 001236 CMP KBBUF , @1236 3<CR> ONLY TYPED? 30.W 001 
20 003270 001356 BNE CRPRM sIF NOT, KEEP LOOKING 30.W O01 
= 3IF YES, START LOGIC TEST 30.W O01 
23 3;CHECK POWER UP OF THE HOST MICRO FIRMWARE. 
25 003272 STO RESET 
26 003274 012767 000024 027126 MOV 3SET UP TIMER 30.W OO1 
27 003302 032777 002000 027122 MOVB BIT #61¢,8CSR 3IS “PWRUP” SET? 30.W 001 
28 003310 001021 BNE sIF YES, OKAY 30.W 001 
29 003312 005367 027112 DEC CNTR sGIVE THE MICRO SOME TIME TO START;D.W 001 
30 003316 001371 BNE MOVvB sKEEP CHECKING 30.W 001 
31 003320 ERROR \N,NOGO sERROR: HOST U.P. FAILED TO START. 
seeesese ERROR 1 seceese 
3320 032777 040000 027152 BIT #614 .,8SR 
003326 001007 BNE .*20 
003330 012700 026477 MOV @N0GO , RO 
003334 012767 000001 014532 MOV @1,ERRNUM * 
003342 7 014360 . JSR —— 
= e 
32 003346 SCOPE STO 
00 004567 014122 JSR RS. SCPRTN 
003352 003272 STO 
33 003354 012767 000000 027046 ST1: MOV @0,CNTR 
012767 102000 014506 STIA: MOV #102000 , GOOD ;NOW WATCH FOR INTR 
35 003370 017767 027036 014502 Mov @CSR .BAD 
36 003376 042767 075777 014474 BIC #75777 ,BAD 
37 003404 026767 014466 014466 CMP ° 
38 003412 001421 BEQ sT2 sINTR € PWRUP SET; OKAY 
39 003414 005367 027010 DEC CNTR ;WAIT A BIT 
40 003420 001360 BNE ST1A 
41 003422 DATERR \N,NOTUP ;ERROR: PWR UP SEQ NOT COMPLETED(BAD CSR) 


peeesese ERROR 2 sessess 


rT: 





a ee es 
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czcnuco 
MOST LOGIC TEST 


014020 


026 750 
102000 
014400 
014374 


027050 


014430 


014414 
014406 


014374 


026656 
026716 


ST: 


sNOW CHK CSR FOR O'S 
sEXCEPT PWRUP E INTR 


sCSR = O'S, O.K. 
sERROR:CSR NOT RESET 


peesesee ERROR 3 coceses 


sCOUNTER FOR VERSION ITEMS 
sADOR RESULT SCPD 

sPOINT AT MEM SPACE 

sSTORE VERSION INFO 

s DONE ? 


3NO, KEEP GOING 


SEQ 0027 


CZCHICO CHR(V)-11 HOST EXERCISE 
MOST LOGIC TEST 


OCOryDUSwtfyo 


003650 
003650 0046567 015620 


003654 003602 
11 003686 012767 177777 
012767 000001 
026552 


14 003790 042767 176000 
15 003705 016777 014164 
026554 


17 OOS722 042767 000400 
2 000400 
19 003736 026767 014134 


003746 032777 040000 

003756 012700 026657 

000005 

003770 004767 014016 
000006 


003774 004567 015474 
004000 

23 004002 032767 001000 

012767 177777 

026420 


006367 026412 
26 004032 004767 014114 
29 004036 000167 177630 


MACRO VO4.00 02:24:05 PAGE 7 


014260 


026422 


sSPAR REGISTER TEST: 
300 A SLIDING BIT (0) TEST ON THE he ADDRESS REGISTER 


iWHILE IGNORING SP4R BIT 06 (UNUSED 


ST6: 


ST60: 
ST61: 


ST62: 


CLR 
CL 


sTEST CLEAR OF SPAR 
sSPAR CLEAR? 


sYES, 
sERROR: CAN'T CLEAR SPAR 


peeesese ERROR 4 eaccese 


sSET UP FOR SLIDING O TEST 
sSET BIT MASK 


sLOAD PATTERN 
sAND READ IT BACK 


s IGNORE > 
sSPAR DATA Oo. ? 
sIF YES NEXT PATTERN 


sERROR : BAD BITS IN SPAR 


peesecee ERROR 5S ceccecce 


sOONE WHOLE REG? 

sIF YES, NEXT RTN 
sRE-LOAD ALL 1'S 

sNO, PREPARE For NEXT BIT 
SROTATE MASK 


sAND CONTINUE 


CZCMUCO CAR(V)-11 MOST 
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026330 
013722 


026416 
026406 


026402 
026372 
000377 


013734 
013730 
013722 


026312 
013672 


026264 


000377 


sSCRATCH PAD a 
N REQ. ScD WHILE FILLING RES SCPD WITH 377'S 
+ (2) UP COUNT IN RES SCPD WHILE FILLING REQ SCPD WITH 3577'S 


: (1) W COUT I 
ST?: CLR 
CLR 
ST70: MOV 
BIS 
MOV 
BIC 
CMP 
BHIS 
INC 
INCB 
BR 
ST71: CLR 
CLR 
STeo: MOV 
Mov 
CMP 
BEQ 
OATERR 
BIT 
BNE 
MOV 
MOV 
JSR 
NW 3 
BIT 
BNE 
PNTM 
MOV 
JSR 
MOV 
JSR 
ST80S: SCOPE 
JSR 
ST80 
ST61: Cop 
BHIS 
INC 
INCB 
Ba 
ST6é2: MOV 
MOV 
ST90; MOV 
CMP 
BEQ 
DATERR 
BIT 
BNE 
MOV 
MOV 
JSR 
N es 


BSPAR 

WORD 
WORD , BSPDR 
#809, GSPAR 
0377, 8SPOR 
809 , BSPAR 
SSPAR , 0377 
ST71 

BSPAR 

WwORO 

ST70 

@SPAR 

WORD 
WORD . GOOD 
SSPOR ,BAD 


S781. 
\N, ISATE 


Ss 
RS, SCPRTN 





sADDRESS 0 
sLOAD REQUEST SCRATCH PAD 


sDONE. 


sNOW...CHECK IT 


30.K, CONTINUE 
sERROR:REQ SCPD ADR TEST ERROR 


seeesece ERROR 6 seccece 


sPRINT ALLOWED? 
3NO, SKIP IT 

sPRINT MESSAGE 

sPOINTED TO BY SCPAD 

sPRINT SCPD ADDRESS OF ERROR 


sRES SCPD ALL 1'S? 


3sYES, O.K. 
sERROR: RESULT SCPD DATA TEST ERROR 
peoeesece ERROR 7 saseces 


SEQ 0029 


CMRCV)-11 MOST 


czcnco 
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ee a = ee oe 


E3 
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040000 
024463 
014170 
026102 
015210 
013072 


026124 


001377 


001377 


013216 


ST90S: 


ST91: 


ST10: 
$T100: 


ST101: 
ST110: 


$T110S: 


ST111: 


STil2: 


225 
338 


acd *eEgzegndes 


is) 
i= 
o 


2953 


gqggegszs 


PEE 
: 


@e 
i) 
~ 


BNE 
PNTM 
MOV 
JSR 
MOV 
JSR 
SCOPE 
i 


CMP 
BHIS 
INC 
INCB 
BR 
MOV 
CLR 


wn 
~ 
~ 
So 


RS.SCPRTN 
SPAR, 01377 
STilz2 


WORD 
$T110 
#377 ,GOOD 
@SPAR 


sPRINT ALLOWED? 
sNO, SKIP IT 


sPRINT MESSAGE 


iSeaNT's TO BY SCPAD 
PRINT SCPD ADDRESS OF ERROR 


sALL DONE? 
sIF YES, REVERSE IN E OUT 


300 IT AGAIN WITH A SWITCH 
sCOUNT DOWN UNTIL HALF -WAY 
sAND LOAD REQ SCPD WITH 1’S 
s DONE ? 


sYES 
3NO, KEEP GOING DOWN 


sNOW, ...CHECK IT 


s0UT ADOR OK? 
sERROR: RESULT SCPD ADR TEST ERROR 


seeeeses ERROR 10 seceese 


sPRINT ALLOWED? 
sNO, SKIP IT 


sPRINT MESSAGE 


sPOINTED TO BY SCPAD 
sPRINT SCPD ADR OF ERROR 


sNOW CHECK REQ SCPD 





czcnuco 
/ MOST LOGIC TEST 


| 
t 
| 
| 
i 
; 
| 
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025606 
013200 


013206 ST120: 
013200 


ST120S: 


000377 ST1l21: 


eadnden’ 2d2h 


*aB: 


@SPOR , BAD 
G000 .BAD 


STi2i 
\N, ISOTE 


sALL 1'S 
sYES, creck THE REST 
sERROR : REQ SCPD DATA TEST ERR 


seeesneee ERROR 11 eeneses 


sPRINT ALLOWED? 
sNO, SKIP IT 


sPRINT MESSAGE 


sPOINTED TO BY SCPAD 
sPRINT SCPD ADR OF ERROR 


sOONE REQ SCPD? 
sYES, CHECK CLR SC. PAD 


3NO, KEEP CHECKING 





CMRC Vv) 


czCMUCO 
HOST LOGIC TES 


ayutUV sufor 


SS TRUSsUNH-o~w 
PTH EERaE 
R38n 


21 005114 
22 005116 


-11 HOST 
T 


EXERCISE MACRO VO4.00 02:24:05 PAGE 9 


025460 
000377 


000377 


CHECK CLEARING ALL SCRATCHPAD LOCATIONS 


: FILL THE ENTIRE SCPD WITH A CONSTANT (NORMALLY ‘0’ ) 


: AND THE CHECK IT 


S$T13: CLR 8SPAR sSTART AT O 
ST1i30: MOV #0, sTHIS LOC (#0) CAN BE CHANGED 
CMP OSPAR , 0377 + TO ANYTHING AND THIS RTN 
BEQ ST1i31A s CAN BE USED FOR ANY DATA 
INC AR s FILL-UP € TEST 
BR $T130 
ST1I31A: MOV ° sADOR RES. SCPD 
$T1318: MOV ° sTHIS “#0” MUST ALSO BE CHANGED 
Chp SSPAR , 01377 
BEQ T131 sFILL UP WHOLE RES. SCPD 
INC AR 
BR $T1318 
STi31: CLR AR 
MOV #0 ,GO00 sTHIS LOC (@0) MUST BE CHANGED 
STi32: MOV BAD F SPOND TO ST130 
CMP BAO + IN TO CHECK THE 
BEQ $T1i33 3 CORRECT DATA FILL-UP 
DATERR \N,RQSPCL sERROR: REQ. SCPD NOT ALL O'S 
:eeeeees ERROR 12 easeses 
BIT #814 ,8SR 
BNE - +20 
MOV @RQSPCL ,RO 
MOV #12 ,ERRNUM 
JSR PC .DERR 
N a Nel 
BIT #814,8SR sPRINT ALLOWED? 
BNE $T132S sNO, SKIP IT 
PNTM SCPAD 
MOV @SCPAD ,RO sPRINT MESSAGE 
JSR ov sPOINTED TO BY SCPAD 
MOV SSPAR ,RO sPRINT SCPD ADR OF ERROR 
JSR PC ,OCTPNT 
S$T132S: SCOPE ST13 
+e RS ,SCPRTN 
ST133: CrP GSPAR , 0377 sO0NE CHECKING REQ. SCPD? 
BEQ $7134 sVYES, CHECK RES. SCPD 
INC esP 3NO, FINISH UP 
JP STi 
ST134: MOV #1000, @SPAR sNOW CHECK RES. SCPD 
MOV #0 ,GO0D sTHIS “#0” ALSO MUST BE CHANGED 
$T135: MOV @SPOR, 
CMP GOOD ,BAD sRES SCPD ALL O'S? 
BEQ $7136 
DATERR \N,RS sERROR:RES. SCPD NOT ALL O'S 
seeseces ERROR 15 sesceee 
BIT 68614,8SR 
BNE +20 
MOV @RSSPCL ,RO 
MOV #13, ERRNUM - 
JSR PC ,.DERR 
WN s Nel 
BIT #614 ,8SR sPRINT ALLOWED? 





CZCMICO CMR(V)-11 HOST 
MOST LOGIC TEST 


ST135S: 


001377 ST136: 


02:24:05 PAGE 9-1 


$T135S 
p 


@SPAR , #1377 
ST14 


@SPAR 
$T135 


sNO, SKIP IT 


sPRINT MESSAGE 
sPOINTED TO BY SCPAD 


sPRINT SCPD ADDR OF ERROR 


sDONE RES. SCPD? 
sYES, NEXT ROUTINE 





-— 
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MOST LOGIC TEST 


1 ee he TOP BYTE” 
2 SETTING “CLRTPB” SHOULD RESULT IN ALL BITS OF THE 
xe ; HIGH ovte OF THE CSR BEING CLEARED. (LOW BYTE ALREADY = 0) 
4 
5 005356 012777 025046 ST14: MOV #804 . @CSR sSET “CLRTPB” 
6 005364 005067 012506 CLR sALL CSR SHOULD BE O 
7 005370 017767 36 012502 MOV @csR ,BAD 
8 005376 026767 012474 012474 8 sALL CLEAR? 
9 005404 001416 BEQ sTisS 
10 005406 DATERR \N,CLTBER sERROR:CLR TPB FAILED 
seeeeees ERROR 14 seeeece 
005406 032777 040000 025064 BIT #614 ,a8SR 
005414 001007 BNE .*20 
005416 012700 027142 MOV @CLTBER ,RO 
005422 012767 000014 012444 MOV #14, ERRNUM 
005430 004767 012356 JSR »DERR 
000015 N ® Nel 
11 005434 SCOPE ST14 
005434 004567 012034 JSR » SCPRTN 
. 005440 005356 $T14 
13 sNOW HANG AND CHECK CSR 
14 : “HANG” BY USING THE CMR-11 ‘DIE’ FUNCTION 
15 3; THEN CHECK THAT THE CSR WAS RIGHT 
1} : FOR THE ‘OIE’ FUNC. THEN CHECK ALL R/W BITS OF THE CSR 
18 005442 005077 025026 STi5: CLR @SPAR sADOR REQ. SCPD 
19 005446 012777 000213 025022 MOV #213, 8SPOR ;LOAD MAINT FUNC SUBF 03 
20 005454 005277 025014 INC @SPAR 
21 005460 ron Shad 000001 025010 pwd corer sDATA LEN. = 1 
23 005472 012777 000001 024776 MOV @1,8SPOR sONE REQUEST 
012777 024724 MoV #200, 8CSR sSET “MAIN“SHD CAUSE U.P. HANG 
25 005506 012767 007777 024714 MOV €7777,CNTR sWAIT FOR THE MICRO 
26 005514 005777 024712 18: TST 8@CsR sMICRO DONE? 
27 005520 100403 BMI 2s sNO, WAIT A BIT 
28 0055092 005367 024702 DEC CNTR 


BNE 
012767 137600 012340 2%: MOV #137600 ,GO00 
31 005536 017767 024670 012334 MOV BAD sREAD CSR REGISTER 
026767 012326 0O CMP GOOD , BAD s0ID IT HANG CORRECTLY? 
33 005552 001432 BEQ ST16 Yes, 
34 005554 012767 000000 024646 #0,CNTR 
35 005562 DATERR \N,DIERR sERROR:CSR NOT RIGHT FOR "DIE" 
seeeeeee ERROR 15 seeenee 
032777 040000 024710 BIT #814,8SR 
005570 001007 BNE +20 
905572 012700 027204 MOV @OIERR ,RO 
005576 012767 000015 012270 MOV #15, ,ERRNUM 
005604 004767 012202 JSR PC,OERR 
000016 N 6 Nel 
36 005610 012777 000002 024614 MOV @2,8CSR sPROGRAM INIT 
37 005616 005367 024606 $7150: DEC TR sWAIT FOR INIT 
001375 BNE $T150 
39 005624 012777 000020 024600 MOV #804 , CSR ;CLR TOP BYTE 
40 005632 SCOPE sST15 
005632 004567 011636 JSR RS, SCPRIN 





J3 
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005636 005442 sTis 
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012767 
012777 


137755 
000355 
024552 
012210 


K3 
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012230 
024556 
012216 
012210 


sCHECK CSR WITH MICRO HUNG 


ST16: 


ST160: 


ST161: 


ST162; 


#137755 ,GO0D 
#355 ,8CSR 


sCHECK R/W BITS OF CSR 


300 THEY SET? 

sYES, TRY CLEARING THEM 
;ERROR : BAD BITS IN CSR WHILE HUNG 

;eeseeee ERPOR 16 eeeeees 


sNOW, SEE IF THEY CLEAR 


a4 THEY CLR? 


xT 
sERROR: LCAN'T "CLR LOW CSR WHILE HUNG 
seeesees ERROR 17 eeeeeee 


sCHECK ACCESS KEYS TO SCPD 
MAIN SET 


sIT SHOUL SAME 
sERROR : ACCESSED REQ SCPD WITH “MAIN” SET 
seeeeees ERROR 20 seseeee 


sTRY AGAIN WITH "ST FUN” SET 


sREAD A REQ SCPD WORD 
sCOMPLEMENT IT 


CMR(V)-11 HOST 
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024340 
024312 
024304 


024276 


011656 


BIC 
MOV 
CMP 


BNE 
ERROR 


#177400, WORD 
WORD , SPOR 


ST17 
NN, SPAVFE 


sFORGET TOP BYTE 


iI SAME 
sERROR : ACCESSED REQ SCPD WITH "“STFUN” SET 
seeeesee ERROR 21 seeeece 


M3 
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MOST LOGIC TEST 


012777 


012746 
012746 
000002 


006404 
000100 


027477 
000023 
0113534 


011076 
177650 


006336 
024016 


006462 
000100 


024236 
024142 


011506 


024074 
024000 


023760 


TEST INTERRUPT WITH MICRO HUNG 
@ERINT , BVECTOR 
#0 


$T17;: MOV 
MTPS 
MOV 
MoV 
RTI 
64%: 
NOP 
NOP 
$T170: MOV 
MOV 
NOP 
NOP 
ERROR 
BIT 
BNE 
MOV 
MOV 
JSR 
N = 
BIC 
SCOPE 
JSR 
$T170 
ST170R: wP 
ERINT: CMP 
ERROR 
BIT 
BNE 
MOV 
MOV 
JSR 
N sz 
SCOPE 
JSR 
$T17 
JP 
GDINT: MOV 
CLR 
RTI 
INTUNT: MOV 
BIC 
MTPS 
MOV 
MOV 
RTI 
64%: 
MOV 
NOP 
NOP 
INTCNR: JMP 
ERINT1: CMP 
CLR 
ERROR 


#0, -(SP) 
0648, -(SP) 


@GDINT , 8VECTOR 


#100, 8CSR 


\N, NOINTR 


@E€RINT1, BVECTOR 


#100, 8CSR 
PR 


Io 
PRIO, -( SP) 
064%, -(SP) 


#100, 8CSR 


sTis 
(SP)+,CSP)-+ 
@csrR 

\N, WPODI 


sSET UP VECTOR FOR ERROR 
sALLOW INTERRUPTS 


sIF ONE OCCURS NOW, IT 

; IS ERRONEOUS. 

sSET VECTOR FOR GOOD INTERRUPT 

sSET INTR ENABLE 

sIF ONE DOES NOT OCCUR NOW, 

; THERE IS AN ERROR 
sERROR:HOST CAN'T INTERRUPT UNIBUS 

seeseeee ERROR 22 eeseses 


s;CLEAR INTR ENAB 


seeeeese ERROR 23 sescece 


3 CONTINUE 
3 CHANGE ~ hy ADDRESS 
R ENAB 


INUE 
sSET UP FOR 2ND ERR INTR 
sCLEAR INTER ENAB 
sSET C.P AT DEVICE PRIORITY 


R_ ENAB 
s ERROR ; WRONG PRIORITY :DEVICE IS HIGHER 








i tin 
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wOST LOGIC TEST 
seeeeees ERROR 24 eeesces 
006470 032777 040000 024002 BIT 0814,8SR 
006476 001007 BNE .°20 
006500 012700 027532 MOV @WPODI ,RO 
006504 012767 011362 MOV 024 ,ERRNUM 
006512 004 011210 » JSR ai 
= 2 
32 006516 SCOPE INTCNT 
006516 004567 010752 JSR RS, SCPRTN 
006522 606416 INTCNT 
33 006524 000167 000000 JMP sTié6 


; 


B4 


SEQ 0040 
CZCMICO CMR(V)-11 HOST EXERCISE MACRO VO4.00 02:24:05 PAGE 15 
MOST LOGIC TEST 
1 sNOW CHECK PROGRAM INIT. 
2 
3 
@ 006530 012777 000002 023674 ST18: MOV @2,8CSR 100 HOST "INIT” 
5 006536 012767 000024 023664 Mov 024, CNTR 10.W OO1 
6 006544 005367 923660 MOV: CEC CNTR 30.W OO1 
7 006550 001375 BNE sWAIT A BIT :0.W OO1 
6 006552 012767 002000 011516 MOV @2000 , GOOD sPWR-UP SHOULD BE SET 
3 017767 023646 011312 MOV @CSR ,BAD sREAD C 
10 006566 042767 100000 011304 BIC #615,BA0 sHAVE TO IGNORE 615 FOR SLOW PDP -11'S;0.W 001 
11 006574 026767 011276 011276 Crep GOOD , BAD sCSR CORRECT AFTER INIT? 
12 006602 001416 BEQ $7180 sYES, CONTINUE 
13 006604 DATERR \NW,HITER sERROR: PROGRAM INIT FAILED 
peeoeeee ERROR 25 eocecce 
006604 032777 040000 023666 BIT 0614 ,aSR 
006612 001007 BNE 20 
006614 012700 027575 MOV @HITER ,RO 
006620 012767 000025 011246 MOV #25, 
006626 004767 011160 " JSR —— 
14 006632 SCOPE sTié6 
006632 004567 010636 JSR RS, SCPRIN 
006636 006530 sT1i8 
15 006640 032777 100000 023564 ST180: BIT €615,8CSR sWAIT FOR PWR-UP COMPL 
16 006646 001774 BEQ $T160 
17 006650 012777 001000 023616 mov #1000 , BSPAR sNOW READY TO READ VERSION 
18 006656 012701 032326 MOV OVERSP ,R1 sPOINT AT ORIGINAL VERSION 
19 006662 012702 032350 MOV sAND SAVE THIS VERSION 
20 006666 117712 023604 ST161: MmOvB @SPOR ,CR2) 
21 006672 001016 BNE 
22 006674 ERfOR \N, VISF sERROR: MICRO DIDN'T STORE VERSION STUFF 
geecesee ERROR 26 eeeseees 
006674 032777 0840000 023576 BIT #614 ,8SR 
006702 001007 BNE 20 
006704 012700 02763535 MOV @VISF ,RO 
006710 012767 000026 011156 mov 026, 
006716 004767 011004 JSR PC, 
000027 N s Nel 
23 006722 SCOPE $7180 
006722 004567 010546 JSR RS, SCPRITN 
006726 006640 $7180 
24 0067350 111167 011142 ST162: MOVB (R1),GO0D sNOW COMPARE VERSION WITH ORIG. 
25 006734 111267 011140 MOvVB (R2),BAD 
26 006740 042767 177400 011130 BIC #177400 ,GOO0O sCLR TOP BYTE 
27 006746 042767 177400 011124 BIC #177400 ,BAD 
28 00675% 026767 011116 011116 CMP GOOD , BAD sSAME AS FIRST TIME? 
29 006762 001416 BEQ $7163 
30 006764 DATERR \N,VIDER sERROR:2ND VERSION NOT SAME AS 1ST 
seeeeeee ERROR 27 eeeseses 
006764 032777 040000 023506 BIT 0614 ,8SR 
006772 001007 ONE .°20 
006774 012700 027673 MOV OVIDER ,RO 
007000 012767 7 011066 MOV 027 ,ERRNUM 
007006 004767 011000 JSR PC ,DERR 
000030 ce] ® Nel 
31 007012 SCOPE $7182 
007012 004567 010456 JSR RS, SCPRIN 


C4 


SEQ 004 
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MOST LOGIC TEST 
007016 006730 $1162 

$2 007020 122122 ST163: CMPB  (R1)+,(R2)- }UPDATE POINTERS 

33 007022 027727 023446 001020 Cre @SPAR , #1020 1 DONE ? 

34 007030 001403 BEQ $T19 

35 0070382 005277 023436 INC @SPAR NEXT WORD 

3 007036 000713 BR $7161 | 

| 

38 

39 1CMECK ACCESS TO RESULT SCPD WITH INTERRUPT CLEAR 

at 

@2 007080 012777 000020 023364 ST19: MOV @20,8CSR :CLEAR TOP BYTE OF CSR 

43 007086 012777 001 023420 MOV #1200, @SPAR sADORESS RESULT SCPD 

@4 007054 017767 023416 023434 BSPOR . WORD sREAD A WORD FROM IT 

45 007062 005167 023430 Com iC 

767 177400 023422 BIC @177400, WORD IGNORE TOP 8 BITS 

47 007074 016777 023416 023374 MOV , BSPOR sAND WRITE IT BACK 

48 007102 026777 023410 023366 CMP WORD ; BSPOR sNOW 1T 

49 007110 001016 BNE ST20 ;IT SHOULDN'T BE THE SAME 

SO 007112 ERROR  \N,SPAVIC sERROR:RES. SCR. PAD ACCESSED WITH INTR CLR 


seeeecese ERROR 30 seccece 
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023154 


010534 


023114 
010510 
0504 


1 
010476 


0235066 


010446 


023026 
010422 


D4 


sNOW CHECK SOME SIMPLE FUNCTIONALIT 
: ENSURE THAT Mab fe Bl A “MAINT” FUNCTION GIVES 
: THE CORRECT ERROR STATUS. 
: ENSURE THAT STARTING THE “MAINT” A Aa WITH “MAIN” 
+ WORKS PROPERLY AND GET PORT BAUD RATES 
ST20: MOV #0,CNTR 
MOV oc sCLEAR TOP BYTE 
CLR sADORESS REQ SCPD 
MOV #210, 8SPOR sLOAD “MAIN” FUNCTION 
INC AR s TO EXAMINE HOST 
MOV 04 , SPOR s MEMORY LOCATIONS 
INC RSPR 
MOV #1,@SPOR sONE REQUEST 
INC AR 
pe TN a 3@ OF BYTES TO READ = 2 
we 0377 ,8SPOR sSTART ADOR = DFFF (H) 
MOV 0337 , BSPOR 
ST200: MOV #1,8CSR sSET “ST FUN” ON “MAINT” FUNC 
MOV #814+815,GO00 sCHECK FOR FUNCOM € INTR 
ST201: MOV @CSR.BAD 
CMP GOOO , s"FUNCOM” AND “INTR” SET? 
BEQ ST20e2 
DEC CNTR sIF NOT, WAIT A BIT 
BNE $T201 
DATERR \N,.STESTF sERROR: STATUS WRONG WITH “STFUN” ON “MAIN” 
seeeeese ERROR 31 seesece 
BIT #814, 852 
BNE 20 
MOV @STESTF ,RO 
HOV 431, 
JSR ° 
N 8 Nel 
SCOPE ST20 
; RS, SCPRIN 
ST202: MOV #1000, 8SPAR sADDRESS RESULT SCPD 
— 0210, sCHECK ON FUNCTION 
CmP ° sFUNCTION CORRECT? 
BEQ $T203 
DATERR ° sERROR: RESULT FUNC. CODE WRONG ON MAIN 
seeesece ERROR 32 eeesoce 
BIT 0814 ,8SR 
BNE .*20 
MOV @RSPESF ,RO 
MOV #32, 
JSR PC, 
N © Nel 
SCOPE ST20 
+ RS, SCPRIN 
ST203;: MOV #1002 , BSPAR sNOW ADORESS “USOF” 
MOV #377 ,GO000 sSHOULD SHOW “TOTAL FAILURE” COOE 
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017767 
026767 
001416 
a3 007472 


007472 
00 


E4 
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023016 010416 MOV @SPOR ,BAD 
010410 010410 CMP GOOD , BAD 
Q ST204 
OATERR \N,USOFE1 
040000 023000 BIT #814,8SR 
BNE .°20 
030077 MOV @USOFE1 ,RO 
000033 010360 MOV #33, 
010272 JSR PC, 
& e Nel 
SCOPE ST20 
007750 » SCPRTN 
000000 022674 ST204: MOV #0, CNTR 
000020 022670 Mov #20, 8CSR 
000200 MOV -@CSR 
140000 010 MOV #814+815,GO000 
022650 010314 ST205: MOV SCSR BAD 
010306 010306 Cop GOO0 ,BAD 
BEQ ST206 
022630 OEC CNTR 
BNE ST 
DATERR \N,STEMF 
040000 022670 BIT #614 ,8SR 
BNE +20 
030140 MOV @STEMF ,RO 
0000 010250 MOV 034, 
010162 JSR PC .DERR 
N s Nel 
SCOPE ST204 
007640 raes RS, SCPRTN 
001002 022630 ST206: MOV #1002 , @SPAR 
000001 010224 mov ° 
022620 010220 MOV BAD 
010212 010212 CMP »BAD 
BEG $T207 
DATERR \N,USOFE2 
040000 022602 BIT $614 ,8SR 
BNE .°20 
030171 MOV eRO 
0000 010162 MOV #35 ,ERRNUM 
010074 JSR PC ,.DERR 
N ® Nel 
SCOPE ST204 
007552 ; a RS, SCPRTN 
001001 022542 ST207: MOV #1001, SPAR 
000003 010136 MOV #3 ,GO0O 
022532 010132 MOV SSPOR .BAD 
010124 010124 a see BAD 


sUSOF 0.K.? 


sERROR: “STFUN” ON “MAIN” GAVE BAD USOF 
peoeecese ERROR 33 eeecece 


sSET “CLRTPB” 

sSET “MAIN” WITH SAME FUN LOADED 
sCHECK FOR “FUNCOM” € “INTR” 
sFUN COMPLETE? 

sWAIT A BIT 


sERROR: STATUS WRONG ON “MAIN” FUNC 
,eeseees ERROR 34 seseees 


sPOINT AT “USOF” 
sSHOULD SHOW SUCCESS 


sUSOF 0.K.? 


sERROR:BAD “USOF” ON “MAIN” FUNCTION 
seeeeses ERROR 35 eeseses 


sPOINT AT DATA LENGTH 
sSHOULD BE 3 


sWAS IT 3? 


sERROR: “MAIN” FUNC GAVE BAD DATA LEN. 
peeeeees ERROR 36 easeene 
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022514 


010074 


ST21: 


gageegeg 288% 


#614,8SR 


.¢ 
@DATLER ,RO 
036 , ERRNUM 


ee ee ee ce ae ne 


sPOINT AT BAUD TABLE 
sGET RESULTS OF EXAMINE 


sSTORE BAUD RATES 








_——-—— oo mk i a i ee ee ee ee 2 es ee + a ee _-~- 


©Z0MNCO CMR(V)-11 HOST EXERCISE MACRO V04.00 02:24:05 PAGE 15 
MOST LOGIC TEST 


! 
| 
1 
2 ; TRY DOING AN “ACTIVATE REMOTE” FIRST USING “MAIN”, THEN “STFUN” | 


2 
m4 
f 
= 
ray 
= 
oa 
* 
[ >) 
wn 
«4 
i) 
vi 


:CHECK RESULTS OF STARTING A REGULAR FUNCTION WITH “MAIN” 
4a 
5 010040 012777 000020 022364 ST22: MOV @20,8CSR sCLEAR TOP BYTE OF CSR 
6 010046 012777 0000U0 022420 MOV SPAR 
7 010054 012777 000060 022414 MOV #60, 8SPOR sLOAD “ACTIVATE REMOTE” FUNC 
8 010062 005277 022406 INC E&SPAR 
9 010066 012777 022402 MOV @2,8SPOR sDATA LEN. = 2 
10 010074 005277 022374 INC BSP aR 
11 010100 012777 000001 022370 MOV #1, 8S°0R sONE REQUEST 
06 005277 022362 INC BSPAR 
13 010112 012777 000001 022356 MOV #1, @SPOR sREMOTE #1 
14 010120 012777 000200 022304 ST220: MOV sSET “MAIN” 
1S 010126 032777 080000 022276 ST221: BIT €614,8CSR sFUNC. COMPL? 
16 010134 001774 BEQ ST22i sNO, WAIT 
17 010136 012777 001000 022330 MOV #1000, 8SPAR sADORESS RESULT 
16 010144 017767 022326 007726 MOV @SPOR ,BAD sREAD RESULT FUNC. CODE 
19 010152 012767 007716 MOV #60 ,GOOD 
20 010160 026767 007712 007712 CmP GOOO ,BAD 30.K.? 
21 010166 001416 BEQ ST222 
22 010170 DATERR \N,RSPEMF sERROR:RES. FUNC. CODE WRONG FOR “MAIN” 
seeesese ERROR 37 eeceses 
010170 032777 040000 022302 BIT #814 ,8SR 
010176 001007 BNE »® 
01 012700 030266 MOV »RO 
010204 012767 000037 007662 MOV #37 ,ERRNUM 
010212 004767 007574 JSR at 
s 7 
| 23 010216 SCOPE ST22 
} 010216 004567 007252 JSR RS, SCPRTN 
010222 010040 ST22 
24 010224 012777 001002 022242 ST222: MOV #1002 , 8SPAR sADOR “USOF” 
25 010232 012767 000377 007636 MOV #377 ,GOOD sSHCULD SHOW TOTAL FAILURE 
26 010240 017767 007632 MOV SSPOR ,.BAD 
27 010246 026767 007624 007624 CMP GOOD ,BAD sUSOF 0.K.? 
28 010254 001416 BEQ $1223 
29 010256 DATERR \N,USOFES sERROR: “MAIN” ON REG FUNC GAVE WRONG USOF 
seeesece ERROR 40 seseses 
010256 032777 040000 022214 BIT 0814 ,8SR 
010264 001007 BNE +20 
010266 012700 030330 MOV @USOFES ,RO 
010272 012767 007574 MOV 040, 
010300 004767 007506 JSR PC ,OERR 
00004 fl s Nel 
30 010304 SCOPE ST22 
10 004567 007164 JSR RS, SCPRTN 
010310 01 st22 
31 010312 012777 000020 022112 ST223: MOV #20, 8CSR 3CLR TOP BYTE 
32 010320 012777 000001 022104 MOV #1,8CSR 3SET “STFUN" 
33 010326 032777 040000 022076 ST224: BIT 0814 ,8CSR sFUNCOM SET? 
34 010334 001774 BEQ sWAIT 
35 010336 012777 001002 022130 MOV #1002, @SPAR sADORESS USOF 
36 010344 012767 000364 007524 MOV #364 ,GOOD sSHOULD SHOW REM. ERROR 
37 010352 017767 MOV @SPOR ,BAD 
38 010360 026767 007512 007512 CMP GOOD , BAD sUSOF 0.K.? 








SEQ 0046 
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40 010370 DATERR \N,USOFE4 sERROR; WRONG USOF ON REGULAR FUNCTION 
peeeeeee ERROR 41 sensors 
010370 032777 040000 022102 BIT #614,8SR 
010376 001007 BNE . +20 
010400 012 030373 MOV @USOFE4 ,RO 
01 012767 1 007462 MOV 41, 
010412 007374 JSR ’ 
N ® Nel 
41 010416 SCOPE ST223 
010416 004567 007052 JSR RS, SCPRTN 
010422 010312 ST223 
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czcnuco 
HOST LOGIC TEST 


47 010724 


021572 


022050 


021736 


021756 


021672 


021626 


02:24:05 PAGE 16 


14 


sEND OF LOGIC TEST. PRINT END OF PASS AND VERSION STUFF 


ST23: 


ST23A: 


ST230: 


VERFLG sIS FLAG SET? 
ST23A sNO 
ST24 IVES, JUST PRINT “END PASS” 
@-1, VERFLG FLAG 
@VERSUN,R1 GET VERSION DATA 
»R2 sAND BAUD RATES 
SM sPRINT “VERSION ” 
@VERSM,RO sPRINT MESSAGE 
PC, TYPOUT sPOINTED TO BY VERSM 
#21,CNTR 
CR1)+,RO sDUMP ALL VERSION INFO 
PC,TTO 
CNTR 
$T230 
BAUOM sPRINT “BAUD RATES:” 
@BAU0N RO sPRINT MESSAGE 
PC, TYPOUT sPOINTED TO BY BAUDM 
PORTOM sPRINT “PORT 0 = “ 
@PORTOM, RO sPRINT MESSAGE 
ce sPOINTED TO BY PORTOM 
#177617 ,WORD sSORT OUT CORRECT PART 
WORD 
WORD 
WORD 3PUT IT IN L.S. BIT PLACES 
@BORTBL RS 3R3 POINTS AT TABLE OF RATES 
WO8D ry E OFFSET 
WORD ,R3 sUSE CORRECT OFFSET 
CR3),RO sGET BAUD 
PC, TYPOUT 
PORT1IM sNOW PRINT “PORT 1 = ” 
@PORTIMN,RO sPRINT MESSAGE 
ov sPOINTED TO BY PORTIM 
do, sGET NEXT BAUD RATE CODE 
#177770,WORD sSORT OUT CORRECT BAUD RATE 
sDOUBLE OFFSET 
oR sUSE IT AS TABLE OFFSET 
CR3),RO 
oT sPRINT RATE FOR PORT 1 
Tam sPRINT “PORT 2 = 
@PORT2MN,RO sPRINT MESSAGE 
oT SPOINTED TO BY PORTOM 
CR2),WORD 3GET BAUD RATE CODE 
#177617 ,WORD sGET CORRECT PART. 
WORD 
WORD 
WORD 
WORD 
#B0RTBL RS 
WORD sDOUBLE OFFSET 
WORD ,R3 sUSE IT AS TABLE OFFSET 
C(R3),RO 


SEQ 0047 
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48 010726 004767 007624 PC, TYPOUT sPRINT BAUD RATE FOR PORT 2 
a9 010732 PNTM PORT3M sPRINT "P is 3 
010732 012700 024621 MOV @PORT3M,RO sPRINT MESSAGE 
010736 004767 007614 JSR PC, TYPOUT sPOINTED TO BY PORT3M 
50 010742 111267 021550 MOvVB CR2),WORD 
Si 010746 042767 177770 021542 BIC #177770, WORD sSORT OUT CORRECT PART 
S2 010 012703 031144 MOV @BORTBL RS 
53 010760 006367 021532 ASL WORD sDOUBLE OFFSET 
S4 010764 066703 021526 ADO ° sUSE IT AS TABLE OFFSET 
55 010770 011300 MOV CR3),RO 
56 010772 004767 007560 JSR PC, TYP sPRINT RATE FOR PORT 3 
57 010776 004767 010766 JSR PC, L sNULLS AFTER PRINTOUT 
= 011002 000167 000016 JMP sT25 
60 011006 005367 021426 ST24: DEC ITER sUPDATE ITERATION 
61 011012 001404 BEQ sT25 sO0NE 10? 
62 011014 032777 004000 021456 BIT #611,8SR sSINGLE ITERATION? 
63 011022 001417 BEQ ST26 
64 011024 012767 000010 021406 ST25: MOV #10, ITER 
65 011032 005267 021410 INC PASCNT sUPDATE PASS COUNT 
66 011036 032777 002000 021434 BIT #810,8SR sEND PASS INHIBIT? 
67 011044 001006 BNE ST26 
68 011046 004767 010716 JSR PC,NULLS sNULLS BEFORE PRINTOUT 30.W O01 
69 011052 004767 000014 JSR »ENPRIN sPRINT END PASS INFO 
70 011056 004767 010706 JSR PC,NULLS sNULLS AFTER PRINTOUT 
71 011062 004767 007064 ST26: JSR PC ,MONIT sCHECK FOR CONTROL CHARACTERS 
L 4 011066 000167 172200 JMP STO sSTART OVER 
74 
75 011072 ENPRTN: PNTM ENOPS sPRINT “END PASS @ ” 
011072 012700 35 MOV @ENDPS ,RO sPRINT MESSAGE 
011076 004767 007454 JSR PC, TYPOUT sPOINTED TO BY ENDPS 
76 011102 016700 021340 MOV PASCNT ,RO 3GET COUN 
77 011106 004767 010600 JSR PC ,.DECPNT sPRINT IT IN DECIMAL 
78 011112 ™ INT COUNT = “ 
011112 012700 MOV #ERCTM,RO sPRINT MESS 
011116 004767 007434 PC,T sPOINTED TO BY ERCTM 
79 011122 105767 021257 TSTB OF LOF sCHECK FOR ERROR CNT OVERFLOW 
60 011126 001 BEQ ENO1 sIT OID’ T, PRINT COUNT 
61 011130 OVFLM sIT DID, PRINT “#eOVERFLOWss"” 
011130 012700 7 MOV @OVFLM,RO sPRINT MESSAGE 
011134 004767 007416 JSR PC,T sPOINTED TO BY OVFLM 
62 011140 BR ENRET 
63 011142 016700 021270 ENO1: MOV ERRCNT ,RO sGET ERROR COUNT 
64 011146 004767 010540 JSR PC ,.OECPNT sPRINT IT IN DECIMAL 
85 011152 000207 ENRET: RTS PC 
j 
| 
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PORT LOOP-BACK TEST 
1 .SBTTL PORT LOOP-BACK TEST 
2 
3 
a :ASK FOR PORT @ TO BE TESTED (<CR> = ALL PORTS) 
Ss 
é 
7 011154 612767 021246 PORTLP: MOV #0, CNTR sBETTER CHECK FOR PWR-UP COMPL 
8 011162 027727 021244 102000 PRLC: CMP @CSR, 102000 ;POWER UP COMPLETE? 
9 011170 001420 BEQ POK :YES, CARRY ON 
10 011172 005367 021232 DEC CNTR iNO, WAIT A BIT 
| 11 011176 001371 BNE PRLC 
12 011200 ERROR  \N,NOGO sERROR:HOST MICRO FAILED TO START 
seeeeeas ERROR 42 seeeeee 
| 011200 032777 040000 021272 BIT €814,8SR 
011206 001007 BNE . #20 
011210 012 026477 MOV ,RO 
011214 012767 006652 MOV 42, ERRNUM 
| 011222 004767 006500 JSR PC,ERR 
000043 N = Nel 
13 011226 HLT ;RUN LOGIC TEST. 
011226 004767 006222 JSR : 
14 011232 012767 000010 021200 POK: MOV #10, ITER sLOAD ITERATION COUNT 
15 011240 005067 021154 CLR ALLFLG CLEAR “ALL” FLAG 
16 011244 005067 021176 CLR PASCNT ;CLEAR PASS COUNT 
17 011250 005067 021162 CLR ERRCNT ;CLEAR ERROR COUNT 
18 011254 105067 021125 CLRB  OFLOF ;CLR OVERFLOW FLAG 
19 011260 PNTM TH ;PRINT “PORT LOOP-BACK TEST” 
011260 012700 024717 MOV @PLTM,RO ;PRINT MESSAGE 
011264 004767 007256 JSR PC, TYPOUT ;POINTED TO BY PLTM 
20 011270 PNTM = RECON ;PRINT RECONNECT COMMUNICATIONS ;D.W 001 
011270 012700 024412 MOV @RECON, RO ;PRINT MESSAGE 
011274 004767 007256 JSR PC, TYPOUT :POINTED TO BY RECON 
21 011300 PSTO: PNTM ™N ;PRINT “PORT @ (<CR>=ALL) ” 
011 012700 024745 MOV @PORTN,RO ;PRINT MESSAGE 
011 004767 007246 JSR PC, TYPOUT sPOINTED TO BY PORTN 
22 011310 012767 010212 MOV * KBBUF ;DEFAULT IS “ALL” 
23 011316 012767 011300 021126 MOV @PSTO,PCONT ;LOAD RETURN ADDRESS 
24 011324 004767 007270 JSR : ;GET KBD INPUT 
25 011330 7 021116 CLR PCONT 
26 011334 026727 010170 000004 CMP P ;WAS IT DEFAULT (OR 4)? 
27 011342 001007 BNE Ti ' 
28 011344 012767 177777 021046 MOV @-1,ALLFLG :YES, SET “ALL” FLAG 
29 011352 021100 CLR T ; START WITH PORT 0 
30 011356 000167 000034 Me PST2A 
32 011362 101004 PST1: BHI PSTE ;WAS IT HIGHER THAN 4? 
33 011364 7 021030 CLR ALLFLG 1NO, MUST BE A PORT 0 
34 011370 000167 000014 JP PST2 
35 011374 PSTE: PNTM AGAIN ;WRONG!, TRY AGAIN 
011374 012700 022624 MOV @AGAIN, RO ;PRINT MESSAGE 
011400 004767 007152 JSR PC, TYPOUT ;POINTED TO BY AGAIN 
011404 000167 177670 UMP PSTO 
37 011410 016767 010114 021040 PST2: MOV KBBUF , PORT ;SAVE PORT @ 
011416 012777 000020 021006 PST2A: MOV 620, 8CSR :CLR TOP 
39 011424 005077 021044 CLR AR ' REQ. SCR. PAD 
40 011430 012777 000212 021040 MOV $212, @SPDR ;LOAD MAINT FUNC. 
41 011436 005277 021032 INC :T0 DO PORT LOOP-BACK 








42 011442 
43 011450 
44 011454 
aS 011462 
46 011466 
47 011474 


63 011750 
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021026 MOV #23, BSPDR 
INC @SPAR 
021014 MOV #1, 8SPOR 
INC AR 
021002 Oe PORT . 8SPDR 
020770 MOV PORT , BSPOR 
020714 MOV #20, CNTR 
MOV TBL Ri 
PSTS: INC AR 
MOV (R1)+,@SPOR 
DEC CNT 
BNE PST3 
PSTS: PNTM TYPCR 
MOV Aaa 


JSR 
020676 PST4: MOV 


@PSTS ,.PCONT 
007746 MOV #1236 , KBBUF 
JSR PC, 
CLR PCONT 
001236 CMP KBBUF , #1236 
BNE PSTS 
START MAINTENANCE FUNCTION 
PSTS MTPS @PO 
MOV @PO0, -( SP) 
MOV 064%, -(SP) 
RTI 
643: 
020610 MOV @20,8CSR 
020602 #200 , 8CSR 
PST6: TST &CSR 
BMI PST60 
JSR PC ,MONIT 
BR 6 
020622 PST60: MOV #1002, SPAR 
000001 CMP ° 
BNE PST7 
JSR PC ,MONIT 
JP ENOCHK 
000375 PST7: CMP SSPOR , 0375 
. BLO PST8 
ERROR \N,PLFFE 
020570 BIT $614 ,8SR 
BNE +20 
MOV OPLFFE ,RO 
006150 MOV 043, 
JSR PC,ERR 
N s Nel 
020542 BIT #814 ,8SR 
BNE PST7S 
PNTM PORTMS 
OPORTMS ,RO 
JSR PC, TYPOUT 
T,RO 


:DATA LEN. = 23 | 
1ONE REQUEST 

sLOAD PORT @ (XMTR) 

sLOAD PORT @ (RCVR) 

iCHARACTER COUNTER 

sLOOP DATA FROM “DATBL ” 


sLOAD DATA BYTE 
OADED ALL? 


3NO, KEEP LOADI 

sPRINT “TYPE <CR> WHEN READY” 
sPRINT ME 

sPOINTED TO BY TYPCR 
sINDICATE PROMPT PENDING 
sLOAD ANY T VALUE 

3GET KE 

3<CR> ONLY T 


YPED? 
sIF NOT, KEEP LOOKING FOR IT 


sALLOW LINE CLOCK INTERRUPTS 


sCLR TOP BYTE 
3SET “MAIN” 
3LO0K FOR INTERRUPT BIT 


sAND WATCH FOR CNTRL CHARS. 
sNOW CHECK USOF 

sOONE SUCCESSFULLY? 

sNO, CHECK ERROR TYPE 


sYES, DONE A PASS 
sFUNCTION FAIL? 


sERROR: TOTAL FAILURE OF “MAIN” FUNCTION 


seeeeese ERROR 43 sessese 


sPRINT ee 


T MESSAGE 
sPOINTED TO BY PORTMS 
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101 012136 
102 012140 
012140 


164 
196 012166 


113 012236 


012236 
012244 


004767 


042777 
062777 
017767 


032777 
001007 


M4 
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007626 JSR PC ,OCTPNT 
PST7S: SCOPE PSTS 
005510 JSR RS, SCPRTN 
PSTS 
000330 JMP ENOCHK 
000374 PSTB: CMP BSPOR , 0374 
BLO PSTBO 
ERROR \N,PLTXTO 
040000 020470 BIT — .@SR 
~* 
030473 @PLTXTO,RO 
006050 MOV o44, 
005676 JSR PC, 
N e Nel 
040000 020442 BIT #614 ,8SR 
BNE PST8S 
PNTM TMS 
025245 MOV @PORTMS ,RO 
006506 JSR PC, TYPOUT 
MOV PORT ,RO 
007526 JSR PC ,OCTPNT 
PST8S: SCOPE PSTS 
005410 JSR RS, SCPRTN 
PSTS 
000230 JP ENDCHK 
020400 000373 PST8O: CMP @SPOR , #373 
BLO PST9 
ERROR \N,PLRCTO 
040000 020370 BIT #814 ,8SR 
BNE . +20 
030521 MoV @PLRCTO,RO 
000045 005750 MOV #45 , ERRNUM 
005576 JSR PC, 
N 3 Nel 
040000 020342 IT #614 ,8SR 
BNE PST8OS 
PNTM PORTMS 
025245 MOV @PORTHMS ,RO 
006406 JSR PC, TYPOUT 
020302 MOV T,RO 
007426 JSR PC ,OCTPNT 
PSTBOS: SCOPE PSTS 
005310 JSR RS, SCPRIN 
PSTS 
000130 JP 
001001 020274 PST9: MOV #1001 , BSPAR 
020272 020266 ADD »@SPAR 
005664 MOV ~BAD 
001000 020252 BIC 0809 , BSPAR 
000002 020244 ADO $2 ,GSPAR 
020242 005640 MOV 8SPOR ,GOOD 
DATERR \N,PLDERR 
040000 020234 BIT 0814 ,aSR 
BNE +20 


3XMTR HUNG UP? 


sERROR: XMTR TIMEOUT ERROR 


seeeeene ERROR 44 seenese 


sPRINT ALLOWED? 

sNO, SKIP IT 

sPRINT “PORT @ “ 
;PRINT MESSAGE 
sPOINTED TO BY PORTMS 


sRCVR HUNG UP? 


sERROR;RCVR TIMEOUT ERROR 


peeeeese ERROR 45 seesece 


sPRINT ALLOWED? 


SAGE 
‘POINTED TO BY PORTMS 


sADDRESS DATA TO FIND BAD WORD 
sGET BAD WORD 


sGET GOOD WORD 
sERROR:LOOP TEST DETECTED DATA ERROR 
peeseeses E 


46 eeeeese 
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012246 
012252 
012260 


114 012264 
115 012272 
116 012274 
012274 
012300 
117 012304 
1186 012310 
119 012314 
012314 
012320 





012700 
012767 
00476 
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030547 MOV @PLDERR , RO 
000046 005614 MOV 46 , ERRNUM 
005526 2 JSR “2 ‘rae 
s ° 
040000 020206 BIT setsi gsr 
PNTM PORTMS 
025245 MOV @PORTMS ,RO 
006252 JSR PC, TYPOUT 
146 MOV T, 
007272 JSR PC ,OCTPNT 
PST9S: SCOPE PSTS 
005154 JSR RS, SCPRTN 
PSTS 
000020 020102 ENDCHK: BIS 0804 , 8CSR 
020064 TST ALLFLG 
BEQ PNTE 
020114 0000035 CMP PORT , 03 
BLO ENDO 
020104 CLR T 
3 020114 MOV @3, SPAR 
020072 020110 MOV T, @SPOR 
020102 INC AR 
020076 MOV PORT , @SPDR 
BR PN 
ENDO: INC PORT 
000003 020060 MOV @3, SPAR 
020036 020054 MOV T, 
020046 INC AR 
020024 020042 MOV PORT , @SPOR 
177142 Jp PSTS 
017774 PNTEND: DEC ITER 
BEQ PNTO 
004000 020024 BIT #611,8SR 
BEQ PNTRTN 
000010 017754 PNTO: MCV #10, ITER 
017756 PNT1: INC 
002000 020002 BIT #610,8SR 
BNE PNTRTN 
176366 JSR PC ,,ENPRTN 
017662 TSTB CLKFL1 
BEQ a 
005736 JSR PC ,,PRNTIM 
007246 1%; JSR »NULL 
24 PNTRTN: = PC MONIT 


N4 


SEQ 0052 


sPRINT ALLOWED? 
sPRINT “PORT @ ” 
sPRINT MESSAGE 
sPOINTED TO BY PORTMS 


sPRINT @ 


sCLR TOP BYTE 
sDOING ALL PORTS? 
A PASS 


;NEXT PORT 
sPREPARE TO LOAD NEXT PORT © 


sUPDATE ITERATION COUNT 
sSW 11 =, INH ITERATION 
RELOAD ITERATION COUNT 


S UPDATE PASS COUNT 
3SW 10 = INH END PASS PRINT 


sPRINT END PASS 

sIS CLOCK TICKING? 
3NO, SKIP PRINTOUT 
sPRINT ELAPSED TIME 
sPRINT NULLS 


eee ee me i ee --- 


BS 
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OGaeYVibufr 


23 


000000 
017622 


017652 


017624 
102000 


017650 


005230 


.SBTTL WOST-REMOTE EXERCISE 


sTHIS ROUTINE ASKS FOR EITHER “DETAILED” OR “GENERAL” RUN 
“DETAILED” 

THE “DETAILED” RUN CONSISTS OF DOING A BACKGROUND SCAN 
IN ‘MODE’ Ba aE yy! POSSIBLE REMOTE NUMBER IS POLLED 
FOR THE PRESENCE OF A REMOTE. WHEN “THRU” IS SET, THE 
DIAGNOSTIC FUNCTION IS RUN ON ALL CONNECTED REMOTES. 
“GENERAL “ 

THE “GENERAL” RUN ASKS THE USER TO INPUT REMOTE "hs 
WHICH HE FEELS ARE ON THE CMR; THEN A BACKGROUND 

IS PERFORMED ON ONLY THOSE REMOTE NUMBERS CUSING FODE 1) 


NOTE: THE “GENERAL” RUN SHOULD BE USED IN MOST CASES 
SINCE IT TAKES FAR LESS TIME TO GET THROUGH A PASS. 


BOTH RUNS DO THE FOLLOWING: 
START BACKGROUND SCAN, He FOR “THRU” 


-REPORT ALARMS WHILE WAI ° 
—_ Ie al SETS, DO A “PORT CONFIGURATION STATUS” REPORT 
RUN “DIAGNOSTIC” FUNCTION ON ALL AVAILABLE REMOTES (DETAILED) 
OR 00 A “FORCE INTERROGATE” ON ALL AVAILABLE REMOTES (GENERAL) 
-REPORT ALL CHANGES OF REMOTE STATUS 
CMREXC: CLRB FAST sCLEAR “FAST” FLAG 
CLR TALLY sSORRY, NOT RESTARTABLE 
EXRCS: MTPS 0 s INTERRUPT ON 
MOV @0, -( SP) 
MOV 064%, -(SP) 
RTI 
648; 
CLR PASCNT sCLEAR PASS COUNTER 
MOV #10, ITER sLOAD ITERATION COUNT 
wy OF LOF ' sCLR FLAGS € COUNTERS 
MOV #0, CNTR sSET UP TO TIME POWER UP 
CELP: CrP @CSR , 0102000 sPUR-UP E€ INTR SET? 
BEQ sYES, CONTINUE 
DEC CNTR 3NO, WAIT A BIT 
BNE CELP 
ERROR \N,NOGO sERROR: HOST MICRO WON'T START 
peeeesee ERROR 47 seccece 
BIT 0614 ,@SR 
BNE .°20 
MOV @NOGO , RO 
MOV 047, ERRNUM 
SR PC,ERR 
a] © Nel 


SEQ 0053 





SEQ 0054 
CZCMICO CHRCV)-11 MOST EXERCISE MACRO V04.00 02:24:05 PAGE 18-1 
HOST -REMOTE EXERCISE 
4? 012650 MT }RUN LOGIC TEST 
012650 004767 004600 JSR PC, SWHLT 
a8 012654 ExSOO: PNTM XCM sPRINT “CMR EXERCISE ROUITNE” ;0.W 001 
012654 012700 025027 MOV @€XCM,RO }PRINT MESSAGE 
012660 767 005672 JSR PC, TYPOUT :POINTED TO BY EXCM 
a9 012664 PNTM CON sPRINT "RECONNECT COMMUNICATIONS”. ;0.W 001 
12664 012700 020412 MOV @RECON, RO }PRINT MESSAGE 
012670 004767 ‘ JSR PC, TYPOUT ;POINTED TO BY RECON 
SO 012674 EXSOA: PNTM TLGN sASK "DETAILED" OR “GENERAL” ;0.W 001 
012674 012700 025537 MOV @0TLGN,RO sPRINT MESSAGE 
012700 004767 005652 JSR PC, TYPOU sPOINTED TO BY OTLGN 
Si 012704 012767 006616 MOV @0, KBBUF ;OEFAULT “GENERAL” :0.W 001 
S2 012712 012767 012674 017532 MOV @€XSOA, PCONT 3SET RE-ASK POINTER :0.W O01 
53 012720 004767 74 JSR PC, INPKB :GO GET AN INPU) :0.W O01 
$4 012724 017822 CLR PCONT 10. O01 
SS 012730 026727 006574 000000 CHP KBGUF , 20 sWANT DEFAULT OR 07 10.4 001 
56 012736 001416 BEQ ExS08 sYES. GENERAL. GET REM 0S 10. 001 
57 012740 026727 006564 000001 CMe KBGUF , @1 ' OET 10.4 001 
58 012746 001406 BEQ EXSONA sYES, 00 DET 10. 001 
59 012750 PNTM AGAIN SE, YOU'RE CONFUSED! D0. 001 
012750 012700 022624 MOV @AGAIN, RO PRINT MESSAGE 
012754 004767 005576 JSR PC, TYPOUT ‘POINTED TO BY AGAIN 
es 012760 000167 177710 JP EX sTRY AGAIN. 30.W 001 
62 012764 105067 017407 EXSONA: CLRB FAST :NOT GOING THE FAST ROUTE 10. 001 
63 012770 000167 000220 ee ExS01 :GO AMEAD WITH DETAILED. 10.W 001 
65 012774 012702 031326 EXSOB: MOV @€XTBL1,R2 ;BORROW PORT 1 TABLE FOR NOW  ;D.W 001 
013000 005722 TST (R2)+ sSKIP OVER ENTRY COUNTER 10.4 O01 
67 013002 PNTM = GTREM SPRINT “TYPE PORT/REMOTE NUMBERS”;D.W 001 
013002 012700 025602 MOV @GTREM,RO sPRINT MESSAGE 
013006 004767 005544 JSR PC, TYPOUT sPOINTED TO ey GTREM 
68 013012 016700 017470 EXSOC: MOV TALLY,RO sPRINT ITEM @ 10. 001 
69 013016 INC RO JOFFSET (START AT 1, NOT 0) 10. 001 
013020 004767 006714 JSR PC DEC USP sPRINT DECIMAL ENTRY 10.4 001 
71 013024 PNTM RAW sPRINT ° " 10.4 001 
013024 012700 025657 MOV ORMNB ,RO sPRINT 
013030 004767 005522 JSR PC, TYPOUT sPOINTED TO BY RMNG 
72 013034 PNTM  TWOSP ;PROMPT FOR INPUT :0.W 001 
013034 012700 023071 MOV @TWOSP ,RO PRINT 
01 004767 005512 JSR PC, TYPOUT :POINTED TO BY TwOSP 
73 013044 012767 000077 006456 MOV 677 ,KBOUF :DEFAULT ‘END OF ' :0.W 001 
74 013052 012767 013012 017372 HOV @EXSCC , PCONT sSET RE-ASK POINTER 10. 001 
13060 004767 005534 JSR , INPKB 1GET KE T 10.4 001 
7% 013064 7 017362 CLR :0.W O01 
77 013070 016700 006434 MOV F sLET’S LOOK AT WHAT WE'VE GOT ;0.W 001 
78 013074 042700 177700 BIC €177700,RO :CHECK FOR EXIT NUMBER :0.W 001 
79 013100 020027 77 CMP RO, 077 sGET IT? :0.W O01 
60 013104 001414 BEQ ExS00 sIF YES, CHECK TALLY € LEAVE ;0.W 001 
81 013106 026727 006416 000400 CMP KBOUF , sWANT HELP? 10.4 001 
62 013114 103415 BLO STRMN iNO, MUST BE 0.K 10. 001 
83 013116 PNTM  GRHLP 10.K, GIVE HIM HELP 10.4 001 
013116 012700 025670 MOV @GRHLP ,RO SPRINT MESSAGE 
013122 004767 005430 JSR PC, TYPOUT sPOINTED TO BY GRHLP 
64 013126 005767 017354 TST TALLY 1MAS HE ENTERED ANY YET? 10.W 001 
85 013132 001327 BNE EXSOC IYES, GET NEXT REMOTE @ 10. 001 
86 013134 000717 BR ExS08 NO, ASK FOR REMOTES 10. 001 
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97 013170 
98 
99 
100 
101 
102 
103 013174 
104 013202 


136 013372 
139 013374 
140 013400 
| 141 013402 


005767 
001014 
000167 


016722 
005267 


004767 
112767 


we em ee ee ee ees ee 


DS 
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017306 
000764 
177777 


017204 
017206 
000020 


000044 
017133 


000020 
017060 


004600 
017035 
017022 
017114 
017024 
000322 


000037 


016124 


017163 


017200 
017172 


017102 
017072 


Exsoo: 


STRMN: 


EXSGO: 


EXxSO1: 


EXSO1A: 


ExSe2: 


a 


ee ns mw , 


| 
TST TALLY 1GET ANY REMOTE 90'S? 001 
BNE EXSGO sYES, GO WITH THEM 10. 001 
SMP ExS08 NO, GO GET SOME 10. 001 
MOV KBBUF , (R2)+ :PUT REMOTE @ INTO TABLE 10.4 001 
INC TALLY sCOUNT IT. 10.W O01 
CMP TALLY, 037 1GOT ENOUGH? 10. 001 
BEQ XSGO SYES, GO WITH THEM 10.4 001 
re ExSOC 1NO, GO GET MORE. 10.W 001 
1WE HAVE ARRIVED HERE BECAUSE THE USER WANTS A FAST RUN USING ONLY THE ;0.W 001 
;REMOTE NUMBERS ENTERED AT STARTUP. rust SET UP A QUEUE FOR BACKGROUND ;0.W 001 
SSCAN AND SET A SOFTWARE FLAG “FAST 10.4 001 
MOV TALLY, EXTBL1 sSAVE REMOTE CUUNT 10.W 001 
JSR ’ sSET MODE - 1 AMD LOAD QUEUE = ;0.W 001 
MOVB = @-1, FAST 1SET SOFTWARE FLAG 10. 001 
sSTART EXERCISING 10. 001 
CLR CHNGFL sCLEAR STATUS CHANGE FLAG 
CLR acsR sSTART OFF CLEAR 
€20,8CSR ;CLEAR TOP BYTE 
044. 8CSR ' BKG SCAN & THRU INTR 
TST8 = FAST sO0ING THE FAST RUN? .W 001 
BNE EXSO1A sYES, SKIP THE WARNING PRINTOUT ;0.W 001 
PNTM SLOW , OFF A MINUTE! 1 
MOV @SLOW,RO sPRINT MESSAGE 
JSR PC, TYPOUT sPOINTED TO BY SLOW 
CLRB 0s«ONCE 
THRUF 
CLR TALLY 
CLR EXTBL1 :CLEAR TABLES 
CLR EXTBL2 
CLR EXTBL3 
CLR EXTBL4 
sEXERCISER MAIN LOOP 
JSR PC,SCALM 1GO SCAN ALARMS 
JSR PC MONIT :CHECK FOR CNTRL CHARS. 
BIT 0614, 8CSR sIS FUN COMPL SET? 
BEQ ExS28 3NO. 
BIS 620, 8CSR :CLR TOP BYTE 
TST L sCHANGE FLAG SET? 
BNE EXS3 IF DO PCS 
JSR PC, MONIT 1CHECK FOR CNTRL CHARS 
tste Ss iIS “THRU” SET? 
ExS3 1IF YES, 00 PORT CONFIG 
TSTB PORT CONFI ? 
BEQ EXxS2 NO. WAIT FOR THRU 
TST TALLY sYES, ANY REMOTES? 
BEQ ExS2 1NO, WAIT FOR CHANGE OR T 
TST L 1 YES, CHANGES PENDING? 
BNC EXS3 1YES, NEW PORT CONFIG 
JSA PC, DIAGFU 1NO, GO DO DIAG FUNC ON AVAIL REMOTES 


Exsec: 





ee 
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142 013406 
143 013412 004767 
00506 


- 
5: 


ES 
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000104 JP 
000172 ExS3: JSR PC ,PRTCNF 
017002 CLR L 
000074 017002 074,@6CSR 
017052 TST ALLY 
BEQ EXS3A 
016744 TSTB 
BNE EXS38 
002210 JSR »REPORT 
177777 ~=©016717 MOVB @-1, CNFGFL 
BR ExS38 
016722 EXSSA: CLRB ONCE 
PNTM NOREM 
025137 MOV @NOREM, RO 
005062 JSR PC, TYPOUT 
016715 CLRB THRUF 
BR ExS2 
016705 ExS38: CLRB 
177777 |+=016672 MOVB @-1,0NCE 
BR Ex 
016716 SKPD2: DEC ITER 
BEQ SKPXO 
004000 016746 BIT @611,8SR 
BEQ SKPX1 
000010 016676 SKPXO: MOV #10, ITER 
016700 INC PASCNT 
002000 016724 6IT €810,8SR 
BNE x1 
175310 PC .ENPRTN 
016604 TSTB 1 
BEQ i$ 
004660 JSR PC ,PRNTIM 
006170 18: JSR PC .NULLS 
004346 SKPX1: JSR PC ,MONIT 
177502 JP ExS2 


s THEN PRINT END PASS STUFF 
100 A PORT CONFIG FUNC. 

sCLR CHANGE FLAG 

SCN.CHGST, THRU INTR 


sREPOR REGULAR REMOTES 

sSET PORT CONFIG AVAILABLE FLAG 

sNO REMOTES. WAIT FOR THRU 

sPRINT "NO REMOTES. .WAITING” 
SAGE 

sCLEAR THRU FLAG 

sCLEAR THRU FLAG 

sSET “ONCE” FLAG 


{UPDATE ITERATION COUNT 
SW li = 2 Mee bet ITER. 
}RELOAD ITERATION COUNT 
;UPDATE PASS COUNT 

:SW 106 = INM END PASS PRINT 


sPRINT END PASS STUFF 
ING? 


:PRINT ELAPSED TIME 


sKEEP GOING 





| MOST-REMOTE E 


21 013726 


016662 
016620 


016642 
016600 


016622 
016560 


016602 
016540 


ra 
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sPORT gd or ete SUBROUTI 
sPERF ON ALL 
;REMOTE Ss IN TABLES 


PRTCNF: CLR 


NE 
4 PORTS AND SAVES THE 


CHNGFL 

TALLY 
@EXTBL1, TBLAD 
#0, POR?! 


PC ,PORCNF 
@EXTBL2, TBLAD 
#1,PORN 


sCLEAR “CHANGE “4 
sCLEAR REMOTE TALLY 
sSET UP TO CONFIG PORT 0 


s00 PORT CONFIG ON PORT 0 
s00 PORT CONFIG ON PORT 1 
300 PORT CONFIG ON PORT 2 


300 PORT CONFIG ON PORT 3 
sANY CHANGES PENDING? 
sIF SO, 00 IT ALL OVER 
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11 013760 

12 0135764 

3 013766 004767 

14 013772 005367 

+4 013776 0013565 

17 014000 012 
014004 012167 


53 014170 000207 
54 
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sSUBROUTINE TO DO THE DIAGNOSTIC FUNCTION OR FORCE INTERROGATE s0.W O01 
70N ALL REMOTES WHICH ARE ON LINE AND REGULAR 30.W 001 
DIAGFU: MOV @€XTBL1,R1 sGET TABLE FOR PORT 0 
MoV CR1)+, CNTR sGET @ OF “eet ON PORT 
SKP1 s NONE, T PORT 
SKP1: CR1)+,REMNO sGET 1ST rho sat . 
FAST s'FAST' FLAG SE -W 001 
SKP1A INO. OIAGNOSTIC FUNCTION s0.W O01 
JSR PC , IFORCE YES, FORCE INTERROGATE 30.W O01 
BR 18 30.W OO1 
SKP1A:;: JSR PC ,OIAGNF 300 DIAGNOSTIC FUNC. ON REM. 
SKP1B: DEC CNTR 300 ALL REMOTES ON THIS PORT 
BNE SKP1 
SKP2: MOV @EXTBL2,R1 3GET TABLE FOR PORT 1 
oe CR1)+, CNTR 31ST ENTRY IS @ OF REMOTES 
JP SKP4 sIF NONE, NEXT PORT 
SKP3: MOV CR1)+,REMNO 1GET REMOTE NO. 
TST8 FAST s'FAST' FLAG SET? 30.W OO1 
BEQ 3A iNO, gh FUNCTION 30.W 001 
= a sVES, F INTERROGATE 30 : pos, 
SKPSA: JSR PC .OIAGNF 300 OIAGNOSTIC FUNCTION ON REM. 
SKP38: poe 
SKP4;: MOV @EXTBLS.R1 3sGET TABLE FOR PORT 2 
we (R1)+,CNTR 31ST ENTRY IS @ OF REMOTES 
JP sIF NONE, NEXT PORT 
SKPS: MOV (R1)+,REMNO sGET TE @ 
TSTB FAST 3'FAST' FLAG SET? 8 1 
BEQ SKPSA 3sNO, OIAGNOSTIC FUNCTION 30.W 001 
JSR PC, IFORCE 8 ° O.W 001 
BR SKP5B 001 
SKPSA;: JSR PC ,OIAGNF 300 OIAGNOSTIC FUNC. ON REMOTE 
SKPSB: DEC CNTR 
BNE SKPS 
SKP6;: MOV @EXTBL4 ,R1 sGET TABLE FOR PORT 3 
MOV CR1)+,CNTR 31ST ENTRY IS @ OF REMOTES 
BNE SKP7 
JP SKP8 sIF ° 
SKP7; MOV (R1)+,REMNO 3GET Cy 
TSTB FAST 3'FAST’ FLAG SET? :0.W O01 
BEQ SKP7A sNO, DIAGNOSTIC FUNCTION 30.W 001 
1. ATT As sYES, FORCE INTERROGATE 3:0.W a 
SKP7A; JSR PC ,.OIAGNF 300 DIAGNOSTIC FUNCTION ON REM. 
SKP7B; 0 CNTR sFINISH ALL REMOTES ON THIS PORT 
BNe SKP7 
SKP6; RTS PC sRETURN 


SEQ 0058 
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HOST-REMOTE E 


Saou suture 


9 014172 
10 014176 


014326 
33 014330 


016226 


016254 


016222 
016210 


016120 
016112 


‘weer SCAN QUEVE LOADING ROUTINE. 10 
VONLY a IF RUNNING “GENERAL” OR FAST og 10. 
sPERFORMS THE ‘SET HOST PARAMETERS’ FUNCTION ON THE HOST 10 
AND LOADS re REMOTE NUMBERS (TEMPORARILY STORED IN EXTBL1) 10 
sINTO THE SCAN QUEUE AS WELL AS SETTING THE HOST MODE TO ‘1’ 30 
a 
LOQUE: MOV @€XTBL1,R1 sGET TABLE OF a i 30 
BIS #804, @CSR a TOP BYTE OF CSR 30 
CLR asp sPOINT TO REQUEST SCRATCHPAD 30. 
MoV CR1)+, CNTR 3GET NUPBER OF ENTRIES 30. 
MOV #120, 8SPOR }LOAD soe HOST’ FUNCTION 30. 
MOV CNTR, sCREATE “NO. OF BYTES FOLLOWING’;0. 
a Fae s INCLUDES MODE € @ OF REQUESTS ;D. 
. 
MOV RO, 8SPOR 3LOAD @ OF BYTES 30. 
INC @SPAR 30 
MOV #1, 8SPOR sONE REQUEST 10 
INC AR 30 
MOV #1,8SPOR sMOODE 1 30. 
LO@LP: INC 3LOAD NEXT REMOTE @ 30 
MOV CR1)+,@SPOR sFROM TABLE 30 
DEC CNTR sKEEP TRACK 30. 
BNE LO@LP 30 
BIS #800, 8CSR :IF DONE, START FUNCTION 30. 
LOGFC: BIT #614 ,8CSR sFUNCTION COMPLETE? 30 
BNE LOGRT :IF YES, EXIT 30 
JSR PC ,MONIT sANY CONTROL CHARACTERS? 30 
BR LO@FC sKEEP AN EYE OPEN 30. 
LOQGRT: RTS PC sALL DONE... EXIT 30 


oe ne a ae | ee eee et cee mene eee ae ee 8 ew ees ee oe ee ee we Oe eee ee 


SEQ 0059 





eS SS 


eee ~~ ane a a en ee ne ee a ee Ee ee ee os ee oe ee ee ee = 3 ee ee ee - --~— 1 


I5 


SEQ 0060 
CZCMICO CMR(V)-11 HOST EXERCISE MACRO VO4.00 02:24:05 PAGE 22 
HOST-REMOTE EXERCISE | 
i mbescbene, TO 00 A ‘FORCE INTERROGATE' FUNCTION ON REMOTE IN ‘'REMNO’ 10.W O01 | 
2 
a ) THIS REPLACES THE ‘DIAGNOSTIC’ FUNCTION IF WE'RE RUNNING IN :0.W O01 
a : “GENERAL” OR FAST MODE. 30.W 001 
5 H 
6 
7 014332 005077 016136 IFORCE: CLR @SPAR sADDRESS REQUEST SCRATCHPAD 30.W OO1 
6 014336 (12777 000130 016152 MOV #130, SPOR sLOAD FORCE INTERROGATE CODE :0.W OO1 
9 014344 005277 016124 INC BSPAR 
10 014350 012777 000002 016120 MOV #2 ,8SPOR sALWAYS 2 BYTES FOLLOWING :0.W O01 
11 014356 005277 016112 INC BSP ER 
12 014362 012777 000001 016106 MOV #1,8SPOR sALWAYS 1 REQUEST 30.W O01 
13 014370 005277 016100 INC @sPaAR 30.W OO1 
14 014374 016777 016064 016074 MOV REMNO , BSPOR sLOAD REMOTE NUMBER 30.W OO1 
15 014402 004767 000360 IFRWTO: JSR PC, SCALM sCLEAR ALARMS ETC VIA SCAN 30.W O01 
16 01°406 052777 000020 016016 BIS #804 ,8CSR sCLR TOP BYTE TO START 30.W 001 
.. 014414 052777 000001 016010 BIS 800, 8CSR ISET START FUNCTION 30.W 001 
1 
19 014422 032777 040000 016002 IFRWT: BIT #814,8CSR sFUNC COMPL SET? 30.W O01 
20 014430 001003 BNE IFRCN sIF YES CONTINUE 30.W 001 
21 014432 004767 000330 JSR PC, SCALM sSCAN FOR ALARMS 30.W O01 
= 014436 000771 BR IFRWT sAND WAIT FOR FUNC COMPL 30.W O01 
24 014440 012777 001000 016026 IFRCN: MOV #1000 , 8SPAR sADORESS RESULTS SCR-PAD 30.W 001 
25 014446 012767 000130 003422 MOV #130 ,GO000 ty FOR CORRECT FUNCT 30.W O01 
26 014454 017767 016016 003416 MOV BSPDR ,BAD READ RETURNED FUNC CODE 30.W O01 
27 014462 026767 003410 003410 CMP GOOD , BAD iIS IT ge ag dy ee 001 
28 014470 001416 BEQ IFRCN1 sYES, LOOK AT RESULTS 30.W 001 
29 014472 DATERR \N,FIFUN sERROR: FORCE INT FUNC GAVE BAD FUNC CODE :0. Ww 001 
seeeeese ERROR 50 eeesese 
014472 032777 040000 016000 BIT #814,8SR 
014500 001007 20 
014502 012700 030747 MoV OF IFUN,RO 
014506 012767 003360 MOV #50, 
014514 004767 003272 JSR PC ,DERR 
000051 N . Nel 
30 014520 SCOPE IFRWTO :0.W O01 
004567 002750 RS.SCPRTN 
= 014524 014402 IFRWTO 
32 014526 062777 000002 015740 IFRCN1: ADD 02, 8SPAR sNOW GET STAT ON FUNCTION 30.W O01 
33 014534 012767 000001 003334 MOV #1 ,GO00D sSHD SHOW SUCCESS 30.W OO1 
34 014542 017767 015730 003330 MoV @SPOR ,BAD sREAD USOF :0.W O01 
35 014550 026767 003322 003322 CMP GOOD , BAD 30.W 001 
36 014556 001434 BEQ IFRCN2 sIF O.K. CONTINUE 30.W O01 
37 014560 DATERR \N,FIFUF sERROR: USOF WRONG ON FORCE INTERROGATE ;0.W 001 
peeesese ERROR 51 seeeeee 
014560 032777 040000 015712 BIT $614,8SR 
014566 001007 BNE .°20 
014570 012700 031024 MOV OF IFUF ,RO 
014574 012767 000051 003272 MOV #51 ,ERRNUM 
014602 004767 003204 JSR PC ,DERR 
000052 N * Nel 
38 014606 032777 040000 015664 BIT #814,8SR sPQINT ALLOWED? 30.W O01 
39 014614 001012 BNE IFRCNS 3NO. SKIP IT :D.W O01 
40 014616 PNTM REMSG ;PRINT “REMOTE @ " 30.W O01 


014616 012700 025255 MOV @REMSG , RO sPRINT MESSAGE 





SEQ 006 
CZCHUCO CMRCV)-11 HOST EXERCISE MACRO V04.00 02:24:05 PAGE 22-1 I | 
HOST-REMOTE EXERCISE | 


+4 014764 000207 RTS PC sAND VAMOOSE 30.W 001 


014622 004767 003730 JSR PC, TYPOUT sPOINTED TO BY REMSG 

41 014626 005277 015642 INC asSPAR sGET REM@ FROM RES SCR PAD 10.W O01 

42 014632 017700 015640 MOV @SPOR , RO 30.W O01 

43 014636 004767 004744 JSR PC ,OCTPNT sPRINT IT 30.W 001 

a4 014642 IFRCNS: SCOPE IFRWTO 30.W OO1 

014642 004567 002626 JSR RS, SCPRTN 
. 014646 014402 IFRWTO 

& 

46 014650 012777 001004 015616 IFRCN2: MOV #1004 , 8SPAR sCHECK THE REMOTE STATE 30.W O01 
47 014656 027727 015614 0000035 CMP BSPOR , o3 sIS IT UNKNOWN? 30.W 001 
| 49 014666 ERROR \N,FICME sERROR: COMM PROBLEMS DURING FRC INTR 30.W 001 

seeeeese ERROR S2 seeeeee 
014666 032777 040000 015604 BIT #814,8SR 
014674 001007 BNE . 20 
014676 012700 031065 MOV OF ICME ,RO 
014702 012767 000052 003164 MOV #52, ERRNUM 
014710 004767 003012 JSR PC,.ERR 
000053 N = Nel 

50 014714 032777 040000 015556 BIT #814,8SR sPRINT ALLOWED? 30.W 001 

Si 014722 001012 BNE IFRC2S sNO, P IT 30.W O01 

S2 014724 PNTM COMST sPRINT “COMM. STAT = ” 30.W 001 

014724 012700 025346 MOV @COMST ,RO sPR SSAGE 
014730 004767 003622 JSR PC, TYPOUT sPOINTEO TO BY COMST 

53 014734 005277 015534 INC @SPAR sYES. GET COMM STATUS 30.W 001 

54 014740 017700 015532 MOV 8BSPOR , RO s FROM RES SCRATCHPAD 30.W 001 

55 014744 004767 004636 JSR PC ,OCTPNT sAND PRINT IT 30.W 001 

56 014750 IFRC2S: SCOPE IFRWTO 3D.W 001 

014750 004567 002520 RS, SCPRTN 
- 014754 014402 IFRWTO 
58 014756 052777 000020 015446 IFRCN3S: BIS 0804 , CSR sCLEAR TOP BYTE WHEN DONE 30.W 001 
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01 012700 
015204 004767 003346 
34 015210 000416 
35 015212 032777 000100 
015220 001405 
37 015222 
015222 012700 
01 004767 003324 
36 015232 10 


a ne ee eee eee sem ee a ee ee a ee — ——-— 


KS 
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015436 


015402 


015366 


015420 
000310 


015406 


002766 


015330 


015300 


015256 


; IF CHANGE OF RREMOTE STATE. 


SCALM: BIT 


SCA1: 


HL 
JSR 

SCA2: PNTM 
J 


SCA2A: BIT 


$8 


| 
I in. TO eer a et ALARMS AND CHANGES OF REMOTE STATE. | 
.SET A FLAG 


s ALARMS ? 
sNO, CHECK FOR CHG ST. 
sALARM! RING TTY BELLS 


sCLR ALARM 


sCHANGE OF STATE? 

sNO, CHECK THRU 

sSEE IF THIS IS A SYS ERR 
$ 


sREMOTE CHANGE IS 0.K. 
sERROR: HOST SYS ERROR. RUN LOGIC TEST. 


seeeeses ERROR 53 eeeeees 


sPRINT “REMOTE STATUS CHANGE” 
sPRINT MESSAGE 
ey a TO BY REMCHG 
PRINT “REMOTE @ 
}PRINT MESSAGE 
sPOINTED TO BY REMSG 


sGET THE REMOTE NUMBER 
sPRINT IT 

sPRINT “REMOTE STATUS NOW ' 
;PRINT MESSAGE 

sPOINTED TO BY REMSTM 
= REGULAR? 

$ 

sYES, PRINT “REGULAR” 
sPRINT MESSAGE 

sPOINTED TO BY REGMG 

s IRREGULAR? 

sYES, PRINT “IRREGULAR” 


sPRINT MESSAGE 
sPOINTED TO BY IRRGMG 


sOTHERWISE, JUST PRINT THE STATUS 
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XERCISE 


| HOST-REMOTE E 
@0 015240 004767 004342 JSR PC ,OCTPNT 
41 01 000410 BR S sAND LEAVE THE TALLY ALONE 
42 015246 005267 0152354 SCA2C: INC TALLY sUPDATE TALLY FOR ADDED REMOTE 
43 015252 000405 BR SCA2E 
@4 015254 005767 015226 SCA2D: TST TALLY IS TALLY ALREADY «07 

4S 015260 001402 BEQ SCA2E sVYES, FORGET IT 
46 015262 005367 015220 DEC TALLY sNO, E IT ONE LESS 

47 015266 005767 015214 SCA2E: TST TALLY sIS TALL 

46 015272 001006 BNE sc sNO, O.K. 

49 015274 105067 015106 CLRB ONCE sYES, HAVE TO START OVER 


PRINT MESSAGE 

015308 004767 003246 JSR PC, TYPOUT sPOINTED TO BY ALROFF 

51 015310 012767 177777 015106 SCA2F: MOV @-1, CHNGFL sSET CHANGE FLAG 

S2 015316 052777 000020 015106 BIS €20,8CSR ;CLEAR TOP BYTE 

S3 015324 000167 177500 SCAL 1GO SEE IF ANY MORE CHANGES. 
54 015330 032777 004000 015074 SCA3: BIT #611, @CSR :IS THRU SET? 

BE SCART 3NO, LEAVE 

56 015340 112767 177777 015045 MOVE =: @-1, THRUF :YES, SET THE “THRUF” FLAG 
57 015346 052777 000020 015056 BIS #20, CSR ;CLEAR TOP BYTE 


SO 015300 — ALROFF sPRINT “ALL REMOTES ARE IRREGULAR” 
$ 

58 015354 000207 SCART: RTS 

| 





M5 
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| MOST-REMOTE EXERCISE 


OSatuyvswufor 


10 


49 015632 


015042 
015074 
015062 
015050 
015036 


014760 
014752 


014772 
000140 


014760 


014672 


014650 


sSUBROUT 


INE TO 
{PORT AND STORE THE RESULTS IN A GIVEN TABLE. 
sSTORED IS THE STATUS OF EACH REMOT 


1FOR EACH REGULAR 


TABLES ARE IN THE FOLLOWING FORMAT; 


och SoPAREES 


PORCNF: MOV 


PORXT: 


TBLAD,R1 
#804 


SSP. 
#140, 8SPOR 
asp 


s TABLE ADOR GIVEN BY CALLER 
CSR 


iCLR TOP BYTE OF 

sADOR REQ. SCPD 

sLOAD PORT CONF. ST. FUNC. 
sDATA LEN. = 2 

s ONE REQUEST 

sPORT @ GIVEN BY CALLER 
sCLEAR ALARMS € CHANGES 
sSTART FUNCTION 

sFUNCTION COMPLETE? 


E 
REMOTE FOUND, A TALLY IS INCREMENTED 


sADOR RESULT 


SCPD 
sTHIS RESULT FROM PORT CONFIG? 
sERROR: HOST SYS ERROR. RUN LOGIC TEST 


PERFORM “PORT CONFIGURATION hee ON A GIVEN 


WA 
SCAN ALARMS AGAIN 


seeeeense ERROR 54 seeeees 


# 


* 
‘ 


sGET @ OF REMOTES 
sDIVIDE BY 4 
sSAVE AS @ OF ENTRIES 


sIF 


NONE, EXI 
sGET @ OF ENTRIES 


;LOAD REMOTE @ 
;LOAD REM, STATUS 
:GOT THEM ALL? 


sNO, GET 


THE REST 


sPORT 0? 


sIF MORE yn LOAD THEM 


mw ee oe ee” 


ee 


SEQ 0064 


, CzCRUCO 
| H#OST- 


NS 
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REMOTE EXERCISE 
SO 015636 001002 BNE ff 
51 015640 005067 014642 CLR TALLY 
S2 015644 060067 014636 1s: ADO RO, TALLY 
$3 015650 052777 000020 014554 BIS 0804 ,ACSR 
$4 015656 000207 RTS PC 


1NO, NEVER MIND 
sVES, CLEAR TALLY 
sUPDATE TALLY 


SEQ 0066 
CZCMICO CAR(V)-11 HOST EXERCISE MACRO V04.00 02:24:05 PAGE 25 
MOST-REMOTE EXERCISE 
i sSUBROUTINE TO REPORT i om OF EACH PORT WHICR HAS ANY 
2 }REMOTES ATTACHED AND RE 
3 
4 015660 REPORT: PNTM CONF MS sPRINT “ee PORT CONFIGURATION eo” 
015660 012700 025267 MOV @CONF MS , RO sPRINT MESSAGE 
015664 004767 002666 JSR PC, TYPOUT sPOINTED TO BY CONFMS 
S$ 015670 105067 014515 CLRB PNCFLG sCLR “PR SOMETHING” FLAG 
6 015674 012767 000006 014540 MOV @6,LINLEN sALLOW 6 REM’S PER LINE 
7 015702 012701 0313526 MOV @€XTBL1,R1 sGET PORT TABLE 
6 015706 012167 014516 MOV (R1)+ CNTR sGET @ OF REMOTES 
9 015712 001407 BEQ REPO sNONE MERE, NEXT PORT 
10 015714 105267 014467 INCB PNCFLG sSET FLAG 
11 015720 012767 014526 MOV @0 , PORN sLOAD PORT NO. 
12 015726 004767 000150 JSR PC ,PRNREM sGO PRINT REMOTES ON THIS PORT 
413 C1S732 012701 031526 REPO: MOV @€XTBL2,R1 
14 015736 012167 014466 MOV CR1)+, CNTR sGET @ OF REMOTES 
1S 015742 001407 BEQ REP1 sNONE HERE, NEXT PORT 
16 015744 105267 014437 INCB PNCFLG sSET FLAG 
17 015750 012767 000001 014476 MOV @1,PORN 
186 015756 004767 000100 JSR PC ,PRNREM sGO PRINT REMOTES ON THIS PORT 
19 015762 012701 031726 REP1: MOV O€XTBLS.R1 
20 015766 012167 014436 MOV (R1)+ CNTR sGET @ OF REMOTES 
21 015772 001407 BEQ REP2 sNONE MERE, NEXT PORT 
22 015774 105267 014407 INCB PNCFLG sSET FLAG 
23 016000 012767 014446 MOV 02 ,.PORN 
24 016006 004767 JSR PC .PRNREM sGO PRINT REMOTES ON THIS PORT 
25 016012 012701 032126 REP2: MOV @EXTBL4 .R1 
26 016016 012167 014406 MOV (R1)+ CNTR sGET @ OF REMOTES 
27 016022 001407 BEQ REP2O sNONE WE'RE DONE 
26 016624 105267 0143557 InCB PNCFLG sSET FLAG 
29 016030 012767 3 014416 MOV @3,, PORN 
30 016036 004767 JSR PC. GO PRINT att ON THIS PORT 
31 016042 105767 014341 REP2O: TSTB PNCFLG sPRINTED ANYTHING? 
32 016046 001004 BNE REPS sVES, FINE. 
33 016050 PNT ALROFF sNO, SAY ALL ARE IRREGULAR. 
016050 012700 025474 mov @ALROFF ,RO ’ MESSAGE 
016054 004767 002476 JSR pc,T sPOINTED TO BY ALROFF 
34 016060 REPS: RTS PC sRETURN WHEN "ONE 


C6 
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SEQ 0067 


INE TO 00 THE as oad PART OF PORT CONFIGURATION REPORT. 


1 SUBROUT 

Ri POINTS AT Bf aes REMOTE @ 
1PORN © PORT @ 

VONTR * @ OF REMOTES ON THIS PORT 


PRNREM: PNTM —- PORTMS 
025245 MOV @PORTMS , RO 
002464 JSR PC, TYPOUT 
014356 MOV RO 
3504 JSR PC, OCTPNT 
PREMO: MOVB (R1)+,RO 
177400 BIC €177400, RO 
3520 JSR PC ,OCTUSP 
MOV @°C,RO 
003776 JSR PC, TTO 
MOVB = CR) +, RO 
177400 BIC €177400 RO 
003450 JSR OCTPNT 
000051 MOV @),RO 
003754 JSR PC, TTO 
014256 DEC CNTR 
BEG PREML 
014262 DEC LINLEN 
BNE PREMO 
014252 MOV @6,LINLEN 
000015 MOV #15,R0 
0037 JSR PC, TTO 
7 014220 MOV @7.CLK 
HOV <RO 
003704 PREM1: JSR PC, TTO 
014206 DEC CLK 
BNE PREM 
177652 ae PREMO 
000015 PREML: MOV #15,RO 
003662 JSR PC, TT0 
000006 014174 Hoy 06, LINLEN 


sPRINT "PORT @ ” 
sPRINT MESSAGE 
ant e TO BY PORTMS 


REMOTE 
out HIGH BYTE 
‘BRACKET THE STATE 
sGET REM. STATE 
sCLEAR THE JUNK OFF 


sPRINT THE STATE 
sCLOSE BRACKETS 


sEXIT IF ALL DONE 
sFILLED A LINE? 
sYES, RESTORE LINEN 


sCARRIAGE RETURN 
sSPACE PAST PORT © 


sANOTHER <CR> 


sAND RETURN 


SEQ 0068 
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HOST-REMOTE EXERCISE 


i 1SUBROUTINE TO DO DIAGNOSTIC FUNCTION ON A GIVEN REMOTE 
2 ,ENTER WITH REMOTE @ IN "REMNO 
3 
a 
5 016250 012767 000020 014150 DIAGNF: MOV #20, CLK :SET UP TO LOAD REQUEST 
6 016256 012702 031266 MOV @DATBL ,R2 
7 016262 005077 014206 CLR BSPAR sADORESS REQ SCR PAD 
8 016266 012777 000100 014202 MOV #100, @SPOR sLOAD “OIAG” F 
9 016274 005277 014174 ING BSPAR 
10 016300 012777 000022 014170 MOV $22, GSPOR ;DATA LEN. = 22 
11 016306 005277 014162 INC @SPAR 
12 016312 012777 000001 014156 MOV #1, @SPOR }ONE REQUEST 
13 016320 005277 014150 INC @SPAR 
14 016324 016777 014134 014144 MOV REMNO, @SPOR }LOAD REMOTE @ 
1S 016332 005277 014136 DIAGO: INC @SPAR 
16 016336 012277 014134 MOV (R2)+, SPOR }LOAD DATA PATTERN 
17 016342 005367 01 DEC CLK 
18 016346 001371 BNE DIAGO 
19 016350 004767 176412 DIAGOO: JSR PC, SCALM :CLEAR ALARMS ETC. 
20 016354 052777 000020 014050 BIS 0604, BCSR ;CLR TOP BYTE 
21 016362 052777 000001 014042 BIS €800, 8CSR sSET START FUNC. 
22 016370 032777 080000 014034 DIAGI: BIT €814,8CSR FUN COMPL? 
23 016376 001003 BNE DIAGIO 
016400 004767 176362 JSR PC, 1NO, WAIT FOR IT 
25 016404 000771 BR DIAG1 
26 016406 012777 001000 014060 DIAG10: MOV #1000, BSPAR sADORESS RESULT Ser. PAD 
27 016414 012767 000100 001454 MOV #100 ,GO0D IRIGHT FUNCTION 
017767 014050 001450 MOV SSPDR BAD 
29 016430 7 001442 001442 che GOOD , BAD 
30 016436 001416 BEQ DIAG2 
31 016440 DATERR \N,DIAGF sERROR: DIAG FUNC GAVE WRONG FUNC CODE 
seeeeese ERROR 55 eeceses 
016440 032777 040000 014032 BIT €814,8SR 
016446 001007 BNE . #20 
016450 0 030650 MOV @OIAGF ,RO 
016454 012767 001412 MOV S, ERRNUM 
016462 004767 001324 ri JSR PC -DERR 
& e 
32 016466 SCOFE  OIAGOO 
016466 004567 001002 JSR RS, SCPRTN 
016472 016350 DIAGOO 
33 016474 062777 000002 013772 DIAG2: ADO @2,QSPAR :CHECK FUNCTION STATUS 
34 016502 012767 001366 MOV #1,GO000 sSHD SHOW SUCCESS 
35 016510 017767 013762 001362 MOV @SPOR,BAD 
36 016516 026767 001 001354 CHP GOO ,BAD 
37 016524 001460 BEQ DIAG4 10.K. 
38 016526 DATERR \N,DIAGUF sERROR:USOF WRONG ON “DIAG” FUNC 
peeeecee ERROR 56 eececes 
016526 032777 040000 013744 BIT 0814,8SR 
016534 001007 20 
016536 012700 030713 MOV @OIAGUF ,RO 
016542 012767 001324 HOV ‘ 
016550 004767 001236 JSR PC,OERR 
000057 N . Nei 
39 016554 032777 (040000 013716 BIT $814 ,@SR ;PRINT ALLOWED? 
40 016562 001036 BNE DIAGSS iNO, IT 
41 016564 PNTM REMSG )PRINT "REMOTE @ “ 








CZCHUCO CHRCV)-12 HOST 
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40 
SS 016674 


OIAGSS: 


000610 
000020 013536 DIAG4: 


Saggh aed JearbdyedKh 
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@REMSG ,RO 
PC, TYPOUT 
@SPAR 
BSPOR , RO 
PC, OCTPNT 
STATEM 
@STATEM,RO 
, TYPOUT 
BSPDR RO 
PC ,OCTPNT 
@USORM, RO 
PC, TYPOUT 
@SPAR 
@SPOR , RO 
PC, OCTPNT 
DIAGOO 
RS, SCPRTN 


0804 , 8CSR 
PC 


E6 


sPRINT MESSAGE 
sPOINTEO TO BY REMSG 


sGET REM. NO. 


MESSAGE 
sPOINTED TO BY STATEM 
sGET STAE OF REMOTE 
sPRINT “USOR = ” 
sPRINT MESSAGE 
sPOINTED TO BY USORM 


sCLEAR TOP BYTE WHEN DONE 


A SN a eS me ew a ee ee a —_————} 
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INTENANCE ROUTINE 


OSU SufrKr 


i9 704 
20 016710 


126 
53 017132 


013454 
013542 


002556 


013432 
001777 


013430 


013346 
000151 
013324 


013314 
013306 


.SBTTL MAINTENANCE ROUTINE 
sTHIS ROUTINE WORKS LIKE ODT BASICALLY BUT 
AD MEMORY. 
sLOADED. COMPLETION 
1 THE FIRST LOCATION OF THE RESULT SCR. 


: TO BE PRINTED. 
sTHE CMR-11 CSR MAY BE EXAMINED BY TYPING 


; IT'S BUS ADORESS FOLLOWED BY SLASH (7) 
; EXIT IS ACHIEVED BY TYP RL - 
: * TO PROCEED TO THE POINT AT WHICH THE 
3 
OOTPR: TSTB  CLKFLG sSTOP CLOCK WHILE WE'RE HERE 
BEQ 008 1BY CLEARING INTR ENAB 
HOV GCS, -(SP) sIF IT'S SET 
$008: MOVB @-1,08FLG sSET DEBUG FLAG 
MOV @CSR, SAVEC ISAVE CSR FOR LOOKING AT 
PNTM - OBAID _ 4PRINT “CMR-11 DEBUG AID” 
MOV @0BAID RO sPRINT MESSAGE 
JSR PC, TYPOUT sPOINTED TO BY DBAID 
s0$: CLR * ADOR 
$18: MOV ADOR , KBBUF 1GET ADORESS 
JSR PC, INPKB ; FROM KEYBOARD 
MOV KBBUF , 
CMP ADOR , 01777 ;WITHIN LIMIT? 
BLOS $28 sYES, O.K. 
CMP ADOR CSR sIS IT THE CSR? 
BNE $108 3NO 
MOV SCSR.RO 
JSR PC, OCTUSP sYES, SHOW CONTENTS OF CSR 
MOV #15,RO0 
JSR “TT0 
ee 08 
$108;  PNTM IN 
MOV @AGAIN, RO ;PRINT MESSAGE 
Js PC. TYPOUT sPOINTED TO BY AGAIN 
$28:  TSTa  SLFL sSLASH HIT? 
Bie $118 YES DUMP DATA 
1S16 - GOFLG 1c" TYPED? 
BEQ $208 
$2as; BIS €804, @CSR ) INSURE TOP BYTE CLEAR 
CLR BSPAR sADORESS F 
CMP @3PDR, 151 118 FUNC NOT MAINT? 


$34; BIS 


@csR sSET “STFUN" 


sIS THERE AN INTR? 
sYES, SEE WHAT IT IS 


00 IT 
IT IS MAINT, SET “MAIN” 
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$4 017134 012767 


90 01 
91 017352 


177662 
013114 


177650 
013064 


013062 


013045 
013176 
36 


013254 %5$: 


013312 $118: 


002320 
013254 


$208: 


$218: 


ae 
: 


SV]E8e ee 
SI SSRoRRS 
RD cs 
38° “=: 
3 3 
z ~ 


ee 

ro 

—_ee 

ate 
= 
So 


SGTESRgESS 
Ting 


(SP)« -@_cs 
OBFLG 
PCONT 

$24% 

PCONT (SP) 
PC 


sADORESS RESULT 
300 <CR> 


sLOAD “ADDRESS” 
sGET “CONTENTS” 
sAND PRINT IT 
sSPACE AND PROMPT (:) 
{PRINT MESSAGE 
sPOINTED TO BY TWOSP 
sGET KBO INPUT 

sLOAD ANY NEW INPUT 
LINE FEEO? 


sIF YES, INCREMENT ADDRESS 
sVALID ADDRESS? 
YES 


3"G" TYPED? 

sYES, START FUNCTION 
sCHECK ON CLOCK FLAG 
3sNO CLOCK, 


SK 
sRESTORE CLOCK IF GOING 
sCLEAR DEBUG FLAG 


VANY PROMPTS PENDING? 

sNO, JUST RETURN TO CALLER 
sVES, RETYPE PROMPT. 
sUNOFFICIAL RETURN 
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1 .SBTTL UTILITY ROUTINES 
> 
3 ;ROUTINES TO SAVE AND RESTORE GENERAL REGISTERS 
a ; CALLED BY USR RS,REGSAV 
5 ; AND JSR RS,REGRES 
é 
7 
8 017354 010446 REGSAV: MOV R4,-(SP) 
9 017356 010346 MOV R3, -(SP) 
10 017360 01 MOV R2,-(SP) 
11 017362 010146 MOV Ri, -(SP) 
12 017364 010046 MOV , (SP) 
| 13 017366 000115 a? 
1S 017370 030026 REGRES: BIT RO, (SP) ;THROW AWAY OLD RS VALUE 
16 017372 012600 MOV (SP )+,RO 
| 17 017374 012601 MOV (SP)+,R1 
18 017376 012602 MOV (SP)+,R2 
| 19 017400 012603 MOV (SP)+,R3 
| 20 017402 012604 MOV (SP)+,R4 
a 017404 RTS RS 
2 sROUTINE TO SET LSI-11 FLAG (SOFTWARE ) 
| 25 017406 112767 177777 012767 LSTST: MOVB @-1,LSIFLG ;SET LSI-11 SOFTWARE FLAG 
26 017414 000002 RTI ; RETURN 
| 28 ;ROUTINE TO SET SOFTWARE SWITCH REGISTER FLAG 
30 017416 012767 032502 013054 SRTST: MOV @SSUR,SR -NO HARDWARE SWR, USE 
31 017424 012767 177777 013052 MOV @-1, SWRFLG ; MEMORY LOCATION 
32 017432 000002 RTI ; AND SET FLAG 
| 34 ;ROUTINE TO PRINT ILLEGAL DEVICE ADORESS 
36 017434 012706 002000 DVATST: MOV @IsP,sP sFIX THE STACK 
37 017440 PNTM = INVLAD ;PRINT NON-EXST ADOR MSG 
017440 012700 022767 MOV @INVLAD,RO ;PRINT MESSAGE 
017444 004767 001106 JSR PC, TYPOUT sPOINTED TO BY INVLAD 
38 017450 000167 162442 sp PROMT 1GO GET CORRECT ADORESS 
40 ;ROUTINE TO REPLACE HALT WITH CALL TO SW MONITOR 
a1 30N NON SWR PROCESSORS (CALLED BY MACRO "HLT”) 
43 017454 005767 013024 SWHLT: TST SWRFLG , ANY SWR? 
«4 017460 001403 BEQ 18 sIF YES, GO HALT 
45 017462 004767 000516 JSR PC, SWOMP :IF NO, DUMP SWITCHES 
46 017466 000207 RTS PC CONTINUE 
47 017470 000000 1s: HALT ;REAL HALT 
48 017472 000207 RTS PC CONTINUE 
50 ;ROUTINE USED FOR LOOPING ON ERROR ROUTINE (CALLED BY MACRO “SCOPE”) 
| 52 017474 004767 000452 SCPRTN: JSR PC,MONIT :CHECK FOR *G, OR tC 
53 017500 005777 012774 TST a@sR 1IS SW 15 SET? 
54 017504 100402 BMI SBAK 1YES, DON'T HALT 
55 017506 HLT ;COMMON ERROR HALT 





- ee ene me ae ee ee rer | en en em en ee ae es ee ee oe eens > 2-2 = 2 — 


a ne ES AS ES AE A ee a 


SEQ 0073 
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017506 004767 177742 JSR PC, SWHLT | 
S6 017512 012500 SBAK: MOV CRS)+,RO sGET DIRECTION FOR SCOPE LOOP 
S57 017514 032777 020000 012756 BIT #613,8SR sSW 13 SET? 
$8 017522 001402 BEQ SCONT sNO, 'T 
59 017524 012605 MOV (SP )+,RS sYES, RESTORE RS 
60 017526 000110 Jp 3 ANDO 
61 017530 005267 012702 SCONT: INC ERRCNT sUPDATE ERR CNT IF "FALL THRU” 
62 017534 001003 BNE SCORTN sWATCH FOR ERRCNT OFLO 
63 017536 112767 177777 012641 MOVB #-1,OFLOF sSET OVERFLO FLAG. 
64 017544 000205 SCORTN: RTS RS sAND RETURN 
65 
66 
67 sROUTINE TO GENERATE CSC DEVICE ADDRESSES FROM "“DEVADR” 
68 
69 017546 016700 012750 DEVGEN: MOV DEVADR ,RC sGET DEVICE CSR ADDRESS 
70 0175S2 010067 012654 MOV RO,CSR sGENERATE CSR 
71 O1 062700 000002 ADO @2,R0 


MOV RO, SPAR sGENERATE SPAR 
000002 ADD RO 
74 017572 010067 012700 Hs a RO, SPOR sGENERATE SPOR 
MOV 


44 017610 000207 RTS sRETURN 
79 sROUTINE TO PRINT DEFAULT VALUES FOR PROMPTS AT FRONT END. 
o. ; ENTER WITH DEFAULT VALUE IN LOC. KBBUF 
82 017612 012700 000050 PROFLT: MOV @'(,RO sGET OPEN PARENTHASIS 
83 017616 004767 002300 JSR PC, TTO sPRINT IT 
84 017622 016700 001702 MOV RO sGET a aad VALUE 
8S 017626 004767 001754 JSR PC ,OCTPNT sPRINT I 
86 017632 012700 MOV @' ),RO sGET CLOSE PARENTHASIS 
87 017636 004767 002260 JSR PC,TTO sPRINT IT 
88 017642 012700 MOV #' ,RO sAND PRINT A SPACE 
89 017646 004767 002250 JSR PC, TTO 
017652 000207 RTS 
\ 

bs sROUTINE TO CATCH ERROR TRAPS TO LOC 4 
94 017654 011667 012632 HOER: MOV (SP), TEMP sSAVE STACK FOR ADDR OF TRAP 
95 017660 012706 002000 MOV @ISP,SP sRENEW STACK BEFORE USING 
96 017664 PNTM TRP4 sPRINT “TRAPPED TO 4 FROM LOC ” 

017664 012700 023035 MOV @TRP4 RO sPRINT MESSAGE 

017670 004767 000662 JSR PC, TYPOUT sPOINTED TO BY TRP4 
97 017674 162767 000002 012610 SUB #2, TEMP 
96 017702 016700 012604 MOV . 
99 017706 004767 001674 JSR PC ,OCTPNT sPRINT SOURCE OF TRAP 
100 017712 004767 002052 JSR PC,.NULLS 
101 017716 012706 002000 MOV @ISP,SP sREFRESH STACK POINTER 
ans 017722 000167 162572 JMPp RESTRT 
104 
4 sERROR ROUTINES: REGULAR ERRORS AND DATA ERRORS. 
107 
108 017726 011667 000140 ERR; MOV (SP), ERRAD sGET ADDRESS OF ERROR CALL 
109 017732 162767 000026 000132 SUB #26 ,ERRAD sCORRECT IT 
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110 017740 
111 017742 
017742 


114 017762 
017762 


017766 
115 017772 
116 017776 
117 020002 


010046 


177710 


ERR1: MOV 


MOV Ee »RO 
SR PC ,OCTPNT 
PNTM WOAT 


MOV (SP)+,RO 
JSR PC,T 
RTS PC 
DERR: MOV (SP), ERRAD 

SUB #26 ,ERRAD 
JSR PC,ERR1 
PNTM wOS0B 
MOV @WDSDB , RO 

_ JSR PC, TYPOUT 
MOV ’ 
JSR PC ,OCTPNT 
PNTM 
MOV 
JSR PC, TYPOUT 
MOV 2RO 
JSR PC ,OCTPNT 
RTS 


sRELATED STORAGE: 


ERRAD: .WORD 0 
ERRNUM: .WORD 0 
GOOD: .WORD 0 
BAD: -WORD O 


sASSOCIATED ASCII CONLY SOME OF IT) 


ERRM:  .ASCII /E€E**ERROR 8/ 
WOAT: .ASCII / AT LOC. &/ 
WOSDB: .ASCII /ESHOULD BE a/ 
WOWAS: .ASCII /, WAS 8/ 


SEQ 0074 


sSTACK ERROR MSG ADDR 
sPRINT “#eERROR ” 


sPRINT MESSAGE 
sPOINTED TO BY ERRM 
sPRINT ERROR NO. (P) 
sPRINT ” AT LOC. ” 


sPRINT MESSAGE 
sPOINTED TO BY WOAT 


sPRINT ADDRESS OF ERROR 
sGET ADDR OF ERROR MSG 
sPRINT ERR MSG 

sRETURN 


sGET ADDRESS OF ERROR CALL 
sCORRECT IT 

sPRINT REG. ERROR MSG 
sPRINT “SHOULD BE ” 
sPRINT MESSAGE 

sPOINTED TO BY WOSDB 


sPRINT GCOD DATA 
sPRINT “, WAS ” 


sPRINT MESSAGE 
sPOINTED TO BY WOWAS 


sPRINT BAD DATA 
3RETURN 


am ee ee ee ee ee ee 


a 





ee Le A a ] 


K6 
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148 .EVEN 





L6 i og 


—CZCMUCO CMRCV)-11 HOST EXERCISE MACRO VO4.00 02:24:05 PAGE 30 
"SWITCH" MONITOR ROUTINE 


1 .SBTTL “SWITCH” MONITOR ROUTINE 
2 
oa sENTER AT MONIT FROM EVERY SUB-TEST TO SEE IF CNTRL-G OR CNTRL-C WAS TYPED 
a ;ENTER AT SWOMP FROM ERROR HALTS IF SW 15 = 
7 ;ALSO MONITORS | THE FOLLOWING CONTROL FUNCTIONS: 
é : P CONTINUE (PROCEED) 
? , CNTRL-O GO TO CMR-11 DEBUG ROUTINE 
8 : CNTRL-A DUMP PORT CONFIG TABLES 
9 
10 
11 020152 MONIT: CLR RO 
12 020154 105777 012350 TST8 KBs :CHECK KEYBOARD FLAG 
13 020160 1 BMI MONIC sIF SET, CHECK WHAT CHAR. 
14 020162 000167 JeP EX6 ;OTHERWISE, EXIT 
020166 017700 012334 MONIC: MOV &KBD, RO 
16 020172 042700 177600 MONCH: BIC #177600,RO ;TRIM OFF PARITY BIT 
17 020176 020027 000007 CMP RO, #07 ;WAS IT tG? 
18 020202 001056 BNE EXi NO, EXI 
19 020204 SWOMP: PNTM  SWRMSG ;PRINT "SUR = ” 
020204 012700 023075 MOV @SWRMSG, RO sPRINT MESSAGE 
020210 004767 000342 JSR PC, TYPOUT sPOINTED TO BY SWRMSG 
20 020214 017700 012260 MOV @SR,RO 1GET CONTENTS OF SR 
21 020220 004767 001362 JSR PC ,OCTPNT ;PRINT IT 
PNTM - TWOSP sSPACE AND PROMPT (:) 
012700 023071 MOV @TWOSP ,RO sPRINT MES 
020230 004767 000322 JSR PC,T sPOINTED TO BY TWOSP 
23 020234 017767 012240 001266 MOV sR, ;LOAD OLD SWITCHES 
24 020242 012767 020204 012202 MOV @SWOMP , PCONT ;LOAD RETURN ADDRESS 
25 020250 004767 000344 JSR PC ;GET KBD INPUT 
020254 005067 012172 CLR PCONT 
27 020260 016777 001244 012212 MOV KBBUF , @SR }LOAD NEW SWITCHES 
020266 CCRTN: PNTM  TYPCTP ;PRINT "P TO CONTINUE” 
012700 023151 MOV @TYPCTP RO ;PRINT MESSAGE 
020272 004767 000260 JSR PC,T sPOINTED TO BY TYPCTP 
29 020276 105777 012226 CONTW1: TSTB  &KBS 
30 020302 100375 BPL CONTW1 
3 017700 012216 MOV SKBD, 
32 020310 700 177600 BIC #177600,RO ;TRIM OFF PARITY BIT 
33 020314 7 7 CMP 007 3G? 
020320 001731 BEQ sYES, GET SWR AGAIN 
35 020322 7 000120 CMP RO,@'P :"P"? 
36 020 001363 BNE CONTW1 NO, KEEP LOOKING 
37 020330 012700 000015 MOV #15,RO }RETURN LINE 
38 020334 004767 001562 JSR tT 
39 020340 7 €x1: CHP RO, 024 }WAS A tT TYPED? 
40 020344 001004 BNE x2 1NO, EX 
41 020346 012706 MOV oIsp,sP sYES, RENEW STACK 
020352 000167 162316 JMP CONT :BACK TO DISPATCHER 
43 020356 020027 00001 Ex2: CMP RO, 017 ;WAS CNTRL-O TYPED? 
44 020362 001002 BNE x3 3NO 
45 020364 000167 176306 JMP OOTPR sAND GO TO DEBUG ROUTINE 
47 020370 020027 000003 EX3: CMP RO, 03 + WAS CNTRL-C TYPED? 
48 020374 001004 BNE Ex4 
49 020376 012706 002000 MOV @ISP,SP YES, REFRESH STACK 
SO 020402 000167 162266 ~~) CONT ;AND RESTAR 
51 020406 020027 000006 Ex4: CMP RO, 06 ;WAS IT Had 





ee ee ee 


eS ene re ee errs nn ee ee ———— 


oe 


M6 
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001012 
105 


011756 
011762 
012016 
000432 
000001 
001104 


Exs: 


EXx6: RTS 


sROUTINE TO PRINT ELAPSED 


PRNTIM: PNTM 


SEQ 0077 


sNO, EXIT 

sIS DEBUG FLAG SET? 
sYES, JUST RETURN 
sALREADY IN eu 


toe wo eh FILL T COUNT ROUTINE 
sWAS tA 0? 


sNOPE, Ye! 
sYES, PRINT PORT CONFIG 


TIME SINCE START-UP OR CNTRL-C 


sPRINT “EL. TIM. “ 
sPRINT MESSAGE 
sPOINTED TO BY ELTIM 


sGET HOURS 
sPRINT IN DECIMAL 


T MINUTES 
sPRINT IN DECIMAL 
sANOTHER ":" 
sGET SECS 
sPRINT IN DECIMAL 


s ANOTHE 

iGET TICKS. (1/60 SEC) 
sPRINT IN DECIMAL 
;RETURN 





N6é 
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“MESSAGE PRINT ROUTINE 

i .SBTTL MESSAGE PRINT ROUTINE 

3 )MESSAGE TYPOUT ROUTINE (CALLED BY MACRO PNTM A) 

a sMESSAGES ARE IN THE FORMAT: 

5 ;  MESG: ASCII 7 EMESSAGEEB/ 

6 

z \WHERE: € IS TRANSLATED INTO CR. ANO LF. 

9 }USES THE SUBROUTINE “TTO” 

10 }WHICH PRINTS CR. € LF. UPON SEEING A CR. CODE. 

il :AND sa ‘T'S MESSAGE TERMINATOR 

; 

1s ;ENTER WITH ADORESS OF MESSAGE IN RO 

1S 029556 010046 TYPOUT: MOV RO, -(SP) STACK ADDRESS or MESSAGE 

16 117600 000000 TPOFCH: MOVB @(SP),RO }FETCH ASCII BYT 

? 700 000100 CHP #100,RO 11S IT ® CTE AINATOR)? 

18 020570 001411 BEQ TPOUTX sYES-EXI 

19 020572 022 000046 CMP #46 ,RO sIS IT CRLF FLAG? 

7% 001002 BNE TPCONT 3NO-TYPE CHARACTER 
21 020600 012700 000015 MOV #15,RO sYES, CHANGE DATA TO CR 
020604 004767 001312 TPCONT: JSR PC,TTO ;TYPE IT 

23 020610 005216 INC (SP) ;MOVE POINTER TO NEXT BYTE 
24 020612 000762 BR TPOFCH SFETCH NEXT CHARACTER 
25 020614 005726 TPOUTX: TST (SP)s ;POP STACK TO REACH RETURN VECTOR 
26 020616 000207 RTS PC 


a me em et em ee ee -— 4 


B?7 


SEQ 0079 
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KEYBOARD INPUT ROUTINE 
1 .SBTTL KEYBOARD INPUT ROUTINE 
2 
3 1KEYBOARD INPUT ROUTINE CALLED BY JSR PC, INPKB | 
a sENTERED WITH OLD CONTENTS IN KBBUF 
5 :IF JUST CR TYPED, EXIT WITH SAME CONTENTS IN KBBUF 
é IF MEW NUMBER TYPED, EXIT WITH NEW CONTENTS IN KBGUF 
Pf j 
8 020620 005067 000702 INPKB: CLR NOKEFL sCLEAR NO NUMBER FLAG 
9 020624 010146 MOV Ri, -(SP) sSTACK OLD R1 
10 020626 016746 000676 MOV KBOUF , -(SP) sSTACK “OLD CONTENTS” 
11 020632 7 000672 CLR :CLEAR INPUT BUFFER 
004767 000216 GETCHR: JSR PC .KBROD iFETCH A CHARACTER IN RO 
13 020642 004767 001254 JSR PC, TTO 1€CHO IT | 
14 020646 020027 000012 CHP RO. @12 iWAS IT ACR OR LF? 
1S 020652 001002 BNE 18 sNO | 
16 020654 000167 000154 sep NRTRN TYES, RETURN WITH PROPER KBeUF 
17 020660 010001 1s: MOV sSET UP TO CHECK FOR A NUMBER | 
18 020662 042701 177407 BIC 0177407,R1 MASK ALL BUT @ CODE 
19 020666 020127 CMP : 11S IT A @ FROM 0-7? 
20 020672 001441 REQ 38 sYES, PACK IT 
21 020674 7? 000177 chp RO, 0177 sWAS IT A DELETE/RUBOUT? 
700 001024 BNE 28 INO, MUST BE GARBAGE 
23 020702 012700 7 MOV 057,RO sYES, BUT PRINT “\~ 
706 004767 001210 JSR PC, TTO 
25 020712 000241 cLc :CLEAR THE C-BIT 
26 020714 006067 000610 ROR KBBUF ;DELETE LAST DIGIT 
27 020720 000241 cLC 
28 020722 006067 000602 ROR KBBUF ; THAT WAS STUFFED 
29 020726 000241 cic 
30 020730 006067 000574 ROR eeu" s INTO KBBUF 
31 020734 005767 000570 TST KBBUF sMAVE WE DELETED EVERYTHING? 
32 020740 001002 BNE 118 36O 
33 020742 005067 000560 CLR NOKEFL sYES, BACK TO NO NUMBER INPUT 
34 020746 000167 177664 118: GETCHR 1GO FOR MORE 
35 020752 012700 000207 28: MOV €207,RO sECHO “BELL” FOR ERRONEOUS INPUT 
020 004767 001140 JSR PC, TTO 
37 020762 0 7 MOV 077,RO ;THEN “2° 
38 020766 004767 001130 JSR PC, TTO 
39 020772 000167 177640 ae GETCHR sAND GET ANOTHER CHARACTER 
40 020776 012767 177777 000522 3%: MOV 6-1, :GOT A DIGIT. SET FLAG 
41 021004 042700 177770 BIC 0177770, RO 1GET THE DIGIT PART OF THE CHARACTER 
42 021010 006367 000514 ASL sSHIFT KBOUF BUFFER 
43 021014 7 000510 ASL KBBUF s 10 T 
1020 006367 ASL : NEW OF 
45 021024 050067 BIS RO, KBBUF ;ADO THE NEW DIGIT 
46 021030 000167 177602 GETCHR 1GO FOR 
48 021034 005767 000466 NRTRN; TST NOKEFL ;WAS THERE NEM DATA? 
49 021040 001004 BNE NEK sYES, GO BACK W 
SO 021042 012667 000462 HOV (SP) +, KBBUF INO, RETR TevE Oo DATA 
51 021046 012601 (SP)+,R1 sRESTORE R 
52 021050 000207 RTS PC AND RETURN 
53 021052 005726 NEK; TST (SP )« sOUMP OLD DATA 
54 021054 012601 MOV (SP)+,R1 sRESTORE R1 
55 021056 000207 RTS PC ;AND RETURN 





Lee 177366 
37 021170 112767 177777 011212 
16700 


IF IN 


~ 
068 


18: 


2s: 


TSTB 


Pore Pee reer eer ee 


re ee ee a — 


oF i 


KEYBOARD READ ROUTINE 
CHECKS FOR THE FOLLOWING 3 CHARACTERS: 
CN RESTART PROG. 


CHANGE /SHOW FILL COUNT 
PRINT PORT CONF EGURAT ON 


. AND OPEN NEXT 


RETURN AND CONTINUE 


SEQ 0080 


axes sWAIT FOR INPUT FROM CONSOLE 
KBD ,RO sPUT THE CHAR INTO RO 
INCF SCLEAR FLAGS 
GOFLG 
SLFL 

LG 
#177600 ,RO sTRIM PARITY 
RO, 03 sWAS *C TYPED? 
18 sYES, RESTART PROGRAM 
@ISP,SP 
Yi sD0N’'T ALLOW fF IN “DEBUG” 
eae “~y CNTRL-F TYPED? 
SAFE sALREADY IN FILL CNT RTN? 
208 sNO, SAFE TO ENTER 
KRTN sYES, IGNORE CHARACTER 
FILMSG SPRINT “FILL COUNT = ” 
OF ILMSG ,RO sPRINT MESSAGE 
Pc.T sPOINTED TO BY FILMSG 
@-1,SAFE sSET FLAG 
FILL ,RO 
PC .OCTPNT sSHOW FILL COUNT 
TWwOSP sSPACE AND PROMP 
@TWOSP ,RO sPRINT MESSAGE 
PC, TYPOUT sPOINTED TO BY TWOSP 
FILL .KBBUF 
PC, INPKB sGET NEW COUNT 
aon sTOO BIG? 
AGAIN sNO GOOD. GET IT AGAIN 
@AGAIN RO sPRINT MESSAGE 
as sPOINTED TO BY AGAIN 
KBOUF ,FILL sLOAD NEW COUNT 
PCONT sRETURNING 7O A PROMPT? 
346 NO, CLEAN RETURN 10.W 001 
06, SP YES, BREAK UP WITH INPKB 
PCONT , (SP) sMODIFY RETURN ADOR 





011104 
000001 
011070 


S68 021322 004767 000250 
011044 


177722 
011032 


000017 
011072 
011064 


ge 
: 


177777 
021034 


002376 


010752 


010742 


010704 


010654 





07 


34%; CLRB SAFE 
KRTN 
as : CMP RO, @1 
408 
TSTB SAFE 
KRTN 
PC ,PNTCNF 
TSTB OBFLG 
KRTN 
JP 30% 
408: TSTB OBFLG 
BNE 63 
Chp RO, @17 
BNE ™N 
TST PCONT 
BEQ 53 
CMP PCONT , @PRMT4 
BLO 6% 
S$: TST6 SAFE 
BNE KRTN 
ADO #6, SP 
JP TPR 
68: CMP RO, #12 
BNE 7% 
MOV #15,R0 
MOVB @-1, 
JP KRTN 
78: CMP RO,0'/ 
BNE $ 
MOVB @-1,SLFL 
JSR PC, TTO 
MoV @NRTRN, CSP > 
88: CoP RO,0'G 
BNE 9% 
MOvVB @-1,GOFLG 
JSR PC,TTO 
MOV @NRTRN, (SP) 
9%: Cop RO,@’ 
BNE KRTN 
MOVB @-1,CONFLG 
MoV @NRTRN, (SP) 
KRTN: RTS PC 


sASSOCIATED VARIABLE STORAGE: 


NOKEFL: .WORD 0 
KBBUF: .WORD 0 


: ° 
FILL: .WORD 10 
"ASCII /EFILL COUNT = 8/ 


sCLEAR SAFETY FLAG 

stA TYPED? 

sNO, SKIP 

vIN FILL a ee 


:0.W 001 


sI LAG SET? 

YES, oe FOR OTHER FLAGS 

sCNTRL-0 TYPED? 

sNO, EXIT 

i TEST IF OOT IS ALLOWED 

sYES, IF PCONT = O OR 

3s IF GREATER THAN PRIORITY 

s PROMPT. 

sALSO, NOT WHILE IN FILL 
COUNT ROUTINE. 

TIES WITH “INPKB” 
DEBUG - AID 


AVE 
sWAS IT A SLASH? 
sNO. 
sYES, SET SLASH FLAG 
SLASH 


srw. 
sYES, SET “GO” FLAG 
1€ THE “G” 

sWAS “P” TYPED? 


8 » EX 
sYES, SET “CONTINUE” FLAG 





SEQ 0061 


E7 
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$ 021556 105767 010615 


7 021564 004767 174070 
6 021570 000167 000010 


021574 012700 023105 
021600 yoode 3 176752 


a A a 


sROUTINE ta A pat he ye eg OF i" PORT CONFIGURATION 


iSTATUS THEN PRINTS THE STATUS, OR PRIN 
i"ee STATUS NOT AVAILABLE oe” 
PNTCNF: TSTB © CNFGFL 1CHECK IF CONFIG IS AVAILABLE 
BEQ = PNTCO 1IF NOT, SAY SO. 
PC, REPORT 1IF_ SO, DUMP IT. 
JP PNTCX sAND LEAVE 
PNTCO: PNTM — NOCNF iPRINT “ee STATUS NOT AVAILABLE ¢+” 
MOV —- @NOCNF , RO sPRINT MESSAGE 
JSR PC, TYPOUT sPOINTED TO BY NOCNF 
PNTCX: RTS PC 1RETURN 


a a 





CMR(V)-11 HOST EXERCISE MACRO VO4.00 02:24:05 PAGE 35 SEQ 0083 


| Czcnuco 
| Siwny 10 ASCII CONVERSION ROUTINES 


021740 004567 175410 JSR RS ,REGSAV 


i .SBTTL BINARY TO ASCII CONVERSION ROUTINES 
2 
3 ;CONVERTS BINARY TO BINARY, BINARY TO 
a ;OCTAL, AND BINARY TO DECIMAL; EITHER 
5 , TIFIED WITH LEAD S SUPPRESSED 
é ;0R R TIFIED WITH LEADING 0'S 
8 
8 
10 ;REGILAR BIN-OCTAL UNJUSTIFIED: 
i 
12 021606 OCTPNT: REGSAV 
021606 004567 175542 JSR RS, REGSAV 
13 021612 005067 000370 CLR RUFLG ;CLEAR RIGHT JUSTIFY FLAG 
14 021616 012701 000010 MOV #10,R1 ;SET RADIX FOR OCTAL 
15 021622 004767 000166 JSR PC, NUMPNT :CONVERT €& PRINT 
16 021626 REGRES 
021626 004567 175536 JSR RS, REGRES 
17 021632 000207 RTS PC ; RETURN 
19 :BIN-OCTAL JUSTIFIED: 
21 021634 OCTUSP: REGSAV 
021634 004567 175514 JSR RS, REGSAV 
22 021640 012767 177777 000340 MOV @-1,RJFLG ;SET RIGHT JUSTIFY FLAG 
23 021646 012701 000010 MOV #10.R1 sSET RADIX FOR OCTAL 
24 021652 004767 000136 JSR PC ,NUMPNT ;CONVERT € PRINT 
25 021656 REGRES 
1656 004567 175506 R5,REGRES 
26 021662 000207 RTS P 
4 sBIN-BIN 
30 021664 BINPNT: REGSAV 
021664 004567 175464 RS, REGSAV 
31 021670 005067 000312 CLR RUFLG :CLEAR RIGHT JUSTIFY FLAG 
32 021674 012701 000002 MOV 62,R1 :SET RADIX FOR BINARY 
33 021700 004767 000110 JSR PC. NUMPNT :CONVERT € PRINT 
34 021704 REGRES 
021704 004567 175460 JSR RS, REGRES 
35 021710 000207 RTS PC 
44 sBIN-DECIMAL UNJUSTIFIED: 
39 021712 DECPNT: REGSAV 
021712 004567 175436 JSR RS, REGSAV 
40 021716 005067 000264 CLR RUFLG ;CLEAR RIGHT JUSTIFY FLAG 
41 021722 012701 000012 MOV 012,R1 ;SET RADIX FOR DECIMAL 
42 021726 004767 000062 JSR PC , NUMPNT ;CONVERT € PRINT 
43 021732 REGRES 
021732 004567 175432 JSR RS, REGRES 
| 44 021736 000207 ATS —s- PC 
“6 ;BIN-DECIMAL JUSTIFIED (6 PLACES) 
| 48 021740 DECUSP: REGSAV 





| CZCMUCO CMRCV)-11 HOST EXERCISE MACRO VO4.00 02:24:05 PAGE 35-1 
| BINARY TO ASCII CONVERSION ROUTINES 


177777 000234 


S9 022004 
60 022010 
61 022012 


012767 
012701 
004767 


000012 
32 
175402 
177536 177536 NULLS: 
000116 1%: 
177524 
NULOUT: 


@-1,RJFLG 


2, 


RS, REGRES 
PC 


FILL ,FLCNT 
RO 


sSET RIGHT JUSTIFY FLAG 
sSET RADIX FOR DECIMAL 
sCONVERT € PRINT 


sGET NO. OF FILL CHARS 30.W 001 
O.W O01 
300 @ AS ORDERED 0 Ww O01 
s0.W OO1 





nr me eee 


a am a se en e-- = ++ 
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AE 


10 022040 


010167 


ZCMICO 
BINARY TO ASCII CONVERSION ROUTINES 


sUNSIGNED CONVERT-PRINT ROUTINE (BIN - ASCII) 


000170 NUMPNT: MOV R1,RADIX 
CLR R2 
DIVSET: CLR Ri 
000160 DIVIO: CHP RO, RADIX 
BLO GETOG 
000152 $uB a »RO 
INC 
BR DIVID 
GETOG: MOV RO, -(SP) 
MOV 1, 
BEQ PNTEXT 
INC Re 
177744 JSK PC ,OIVSET 
000006 PNTEXT: MOV 06 ,R3 
SUB R2,R3 
BLE PNT 
000114 TST RJFLG 
BEQ PNT 
JUST: MOV @40,RO 
000016 JSR PC.TTO 
DEC R3 
BNE JUST 
000072 CLR RJFLG 
PNT: CSP)+,RO 
000060 BIS @'0,RO 
sTYPE OUT ROUTINE 
sPRINTS A CHARACTER WHICH | IS IN RO 
sIF THE CHARACTER IS “CR.” 
010406 TTO: MOV RO, aTTB 
010404 TTOLP: TSTB eTTs 
BPL TTOLP 
000015 CMP #15,R0 
BEQ TOLF 
RTS PC 
000012 TTOLF: MOV #12,R0 
177746 JSR TTO 
177352 177352 MOV FILL ,FLCNT 
000000 MOV @0,RO 
177730 1%: JSR PC,TTO 
177336 DEC FLCNT 
BGT 1$ 
000012 MOV #12,R0 
RTS c 
sASSOCIATED VARIABLE STORAGE: 
RJFLG: .WORD 0 
RADIX: .WORD 0 


sSAVE RADIX 
sCLEAR TAB COUNTER 
CLE 


T 
sELSE, KEEP SUBTRACTING 
sAND KEEP COUNT 


sSTACK REMAINDER 
sPRINT IF HIGHEST ORDER STACKED 


sELSE COUNT DIGITS FOR R. JUSTIFY 


one DIGIT COUNT CONSTANT 


HAVE WE PRODUCED 6 DIGITS? 
YES, MUSTIFICATION UNNECESSARY 
sIS THE JUSTIFY ~ SET? 
sNO-DON'T JUSTIFY 
YES, PRINT LEADING SPACES 


sCLEAR JUSTIFY FLG WHEN DONE 
sGET REST OF DIGITS OFF STACK 
sMAKE THEM ASCII 


» ALSO PRINT A “LF.”. 


sPRINT CONTENTS OF RO 
sWAIT TILL PRINT DONE 


sWAS IT A CR? 
sYES, ECHO ALF AS WELL 
sNO, JUST RETURN 


sECHO A LINE FEED 
sPRINT NULLS FOR FILL 


s THEN RESTORE RO 
sAND LEAVE 





Cc 


en eee es ees - ee 0 ee eee ee 


I7 
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_ CZCHICO 
CONSTANTS, VARIABLES & ACSII 


sASCII 
TSTHOR: 


.SBTTL CONSTANTS, VARIABLES € ACSII 


MESSAGES: 


ASCII /ECZCMUCO CMR(V)-11 HOST EXERCISER 30-0CT-84/ 


ASCII /€€ 


eee CAUTION ee2/ 


-ASCII /ETHIS PROGRAM IS CAPABLE OF ALTERING THE STATE/ 


-ASCII /€0F ANY FIELD EQUIPMENT ATTACHED TO ANY OF THE/ 





aS 


CZCMICO CMR(V)-11 HOST EXERCISE MACRO V04.00 
CONSTANTS, VARIABLES € ACSIT 


il 


13 


54 
14 022657 
022662 


oe 


FRAD: 


AGAIN: 


OVECT: 


OVPRIO: 


-ASCIT 


-ASCIT 


-ASCII 


-ASCII 


-ASCII 


-—— - ene ee ee eee 


J/ 


02:24:05 PAGE 37-1 


/EREMOTES ON THIS CMR-11./ 


/EINTERFACE ADDRESS: 8/ 


ZETHAT WON'T DO. TRY AGAINE@/ 


/EINTERFACE VECTOR: @/ 


/EINTERFACE PRIORITY (4 TO 7): @/ 


-ASCII /€€PROCEED WITH CAUTION IF FIELD HARDWARE IS STILL ON-LINE! €€a/ 


K7 
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— CZCNUCO 
| CONSTANTS, VARIABLES & ACSII 


16 022742 046 103 115 OBAIO: .ASCII 


022764 046 
17 022767 046 111 116 INVLAD: .ASCII 


023003 105 123 

123 056 056 
023011 056 050 111 
023014 124 047 123 
023017 040 116 117 


0230 105 051 1 
18 023033 046 046 124 TRP4: #£.ASCII 
02 122 101 120 
023041 120 105 104 
3044 040 124 117 
023047 040 064 040 


023066 
19 dL} 040 040 072 TWOSP: .ASCII 


02 100 
20 023075 046 123 127 SWRMSG: .ASCII 
122 040 075 
023103 040 100 
21 0231 046 NOCNF: .ASCII 
023110 040 103 117 
023113 116 106 111 
023116 107 
023121 101 111 
023124 117 116 
023127 116 ‘ai 124 


1 
023146 052 046 
22 023151 046 124 131 TYPCTP: .ASCII 
023154 


7ECMR-11 DE-BUG AIDEES/ 


/EINVALID ADDRESS...CIT'S NOT THERE )a/ 


/EETRAPPED TO 4 FROM LOCATION 8/ 


4 :8/ 
ZESWR = 8/ 


/E€¢e CONFIGURATION NOT AVAILABLE ##&8/ 


/ETYPE “P” TO CONTINUES/ 





c 
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023224 
24 023226 


040 
114 


SS 
ad ad 


~ 
°o 
~ 


040 
123 
046 
040 
040 
062 
040 
122 
114 
120 
101 
040 
123 
046 
040 
040 
063 
040 
122 
061 
130 
103 
105 
046 
040 
040 
064 


_ CzCMICO 
CONSTANTS, VARIABLES € ACSII 


BESESEREE 


~ 
~ 


— 
his 


SERSESESRE 


111 


88358 


TSTSEL: 


HELPM: 


ES A 


-ASCII 


- ASCII 


-ASCII 


- ASCII 


-ASCII 


-ASCII 


yy 


02:24:05 PAGE 37-3 


/ESELECT TEST (4*HELP) 8/ 


/ESELECT ONE OF THE FOLLOWING: €/ 


7E<CR> OR 1 = LOGIC TEST/ 


4é 2 = PORT LOOP-BACK TEST/ 


4E 3 


CMR-11 EXERCISER/ 


4é 4 = THIS HELP JNFO./ 





a a a a a NN a _—--— —-- 


M7 


, CZCMICO CARCV)-11 HOST EXERCISE MACRO VO4.00 02:24:05 PAGE 37-4 
| CONSTANTS, VARIABLES € ACSII 


023424 040 124 110 
040 


SEQ 0090 


023435 120 040 Lil 
3440 116 106 117 
| 023443 056 
29 023444 046 040 040 \ASCII /€ CNTRL-C * TEST SELECT/ 


~ 
~ 
S 
S 
uw 


30 023474 046 040 040 -ASCII /7E CNTRL-G = SWITCH OPTION SELECT/ 


107 075 
023510 040 123 127 
023515 111 124 103 
023516 110 117 
023521 120 111 
3524 117 116 
023527 123 105 114 
023532 105 103 124 
31 023535 046 040 040 ASCII /E€ CNTRL-F = CONSOLE FILL COUNT SELECT/ 
023540 103 116 124 
023543 122 114 055 
023546 106 
023551 103 117 
3554 116 123 117 
023557 114 105 
3562 1 111 114 
023565 114 103 
023570 117 125 116 
023573 124 040 123 
76 105 114 105 
023601 103 124 
32 023603 046 040 040 -ASCII /E& CNTRL-A = SHOW PORT CONFIG. STATUS/ 
023606 103 116 124 
023611 114 0SS 
023614 101 
023617 123 110 
3622 117 127 040 
023625 120 117 
023630 124 103 
023633 117 116 106 
111 107 
023641 123 124 
101 125 


12 
33 023650 046 040 -ASCII /E CONLY WORKS IF TABLE ALREADY/ 








040 
122 


3338 


me pe 
ore 
en 


SReSEehS 


ry 
So 


040 
040 
040 
040 
125 
124 
116 


a a re ee ee ee Ce SE —_-_—-_- 1 


N?7 


SEQ 0091 


CZCHICO CHR(V)-11 HOST EXERCISE MACRO VO4.00 02:24:05 PAGE 37-5 
| CONSTANTS, VARIABLES € ACSII 


7é PRINTED AUTOMATICALLY)./ 


76 CNTRL-O = DEBUG ROUTINE WHICH ALLOWS/ 


4E LOADING SCR. PAD AND STARTING/ 


-ASCII /€ FUNCTIONS AND EXAMINING THE/ 





Cc 
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41 


Z7CRICO 
CONSTANTS, VARIABLES € ACSIT 


HLPOSR : 


LGKTSM: 


BRKCOM: 


ASCII /7€ RESUTS/ 


ASCII 7€ “Pp” © PROCEED FROM SW. MONITOR &/ 


-ASCII /EIF HELP IS REQUIRED, ENTER A "4" @/ 


-ASCII /€LOGIC TESTES/ 


-ASCII /EDISCONNECT COMMUNICATIONS TO ALL REMOTES. .€a/ 


SEQ 0092 





———— ee -— ee ee a ee ee a ee eee ee -+< - 


C8 
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CONSTANTS, VARIABLES & ACSIT 


SEQ 00935 


024407 00 
43 024412 046 122 tt; RECON: .ASCII /ERE-CONNECT COMMUNICATIONS TO REMOTES. .Ca/ 
02441 


Oe84 56 123 056 
024461 046 100 

44 024465 046 123 103 SCPAD: .ASCII /ESCR.PAD ADDR = 8/ 
024466 120 


024477 122 040 075 
2 040 100 
4@S 024504 046 046 110 VERSM: .ASCII /EEHOST FIRMWARE VERSION : 8/ 
024507 117 123 124 
024512 040 106 111 
024515 122 115 127 
024 101 122 105 
024523 040 126 105 
024526 122 123 111 
024531 117 116 040 
024534 o72 O40 100 
46 024537 046 046 102 BAUOM: .ASCII /EEBAUD RATES:8/ 
Cig S42 101 125 104 
024545 040 122 101 
550 105 123 


024553 
47 024555 O46 120 117 PORTOM: .ASCII /EPORT @0 = 8/ 
024 122 


024 075 100 
46 024571 046 117 PORTIM: .ASCII /EPORT 01 = 8/ 
024574 122 040 
S77 043 040 
075 100 
49 046 117 PORT2M:; .ASCII /EPORT @2 = 8/ 
024610 122 


117 PORTSM: .ASCII /EPORT @3 = 8/ 


024624 040 
024627 043 040 
024632 075 100 
51 024635 046 116 ENDPS: .ASCII /€END PASS 08/ 
024640 104 120 
024643 101 123 


114 ELTIM: .ASCIT / EL. TIM, *8/ 





-—— rw te es ree ee EF Ne at ee ene ee ee ee --— 


CZCMICO CMR(V)-11 HOST EXERCISE MACRO V04.00 02:24:05 
CONSTANTS, VARIABLES € ACSITI 


024657 


056 


ERCTM: 


OVFLM: 


PLTM: 


TYPCR: 


EXCM: 


SLOW: 


-ASCII 


-ASCIT 


-ASCIT 


-ASCII 


- ASCII 


-ASCII 


-ASCII 


ee oe a ee oe ee ee Se ee ee ee a ee oe ee ee 


D8 


SEQ 0094 
PAGE 37-8 


7 ERR, CNT = 8/ | 
/eeQVERFLOWee8/ 


7EPORT LOOP-BACK TESTES/ 


ZETYPE PORT @ (<CR>*ALL): @/ 


JETYPE <CR> WHEN READY: 8/ 
/ECMR EXERCISE ROUTINE ES/ 


/ECGIVE ME A FEW MINUTES ALONE WITH THE REMOTES )E8/ 





ee ee ee = er ee a aR 


E8 


SEQ 0095 


—CZCMICO CMRCV)-11 HOST EXERCISE MACRO V04.00 02:24:05 PAGE 37-9 
CONSTANTS, VARIABLES € ACSIT 


61 025173 


NOREM: .ASCII 

-ASCII 
PORTMS: .ASCII 
REMSG: .ASCII 
CONFMS: .ASCII 


STATEM: .ASCII 


USORM: .ASCII 


COMST; 


- ASCII 


/Eeee NO REMOTES ON HOST eeef/ 


7€( I WILL KEEP LOOKING FOR ANY CHANGES )&8/ 


/EPORT 08/ 


/EREMOTE 08/ 


7€ #¢ PORT CONFIGURATION **£8/ 


ESTATE = 8/ 


/EUSOR = 8/ 


/ECOMM STATUS = 8/ 





mm a ee ee 


, CZCMICO CARCV)-11 HOST 
CONSTANTS, VARIABLES € ACSII 


025600 
74 025602 


F8 


> 7 laa MACRO VO4.00 02:24:05 PAGE 37-10 


075 


0 ne a a ee wee 


040 


REMCHG ; 


OTLGN: 


GTREM: 


-ASCII 


-ASCII 


-ASCII 


-ASCII 


7Eeee REMOTE STATUS CHANGE ¢008/ 


JEREMOTE STATUS NOW 8/ 


/ REGULAR@/ 


/ TRREGULARS/ 


/Eeee NO REGULAR REMOTES FOUND eeef8/ 


/EEDETAILED(1) OR GENERAL(O)...(0) @/ 


"ETYPE PORT/REMOTE @'S (400=HELP, <CR>=END)EE8" 





-_-— a a a a ee te t+ ee ne ee ES NT ee ee ae oe ee ee ene ee ee ee ~ 1 


G8 
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O2S€S4 
7S 025657 040 040 122 RMNB: -ASCII 7 REM @ 8/ 
025662 


02566: 
76 025670 046 046 040 GRHLP: .ASCII /EE PORT @ AND REMOTE © ARE COMBINED INTO / 


116 104 
025707 105 115 
025712 117 105 
025715 043 
720 101 105 
025723 040 103 117 
025726 115 102 111 
025731 116 105 104 
040 ill 116 
025737 124 117 040 
77 poe den | 117 116 105 ASCII /ONE OCTAL NUMBER./ 
025 101 114 
025753 116 125 
025756 115 102 105 
025761 122 056 
78 025763 046 046 040 ASCII /€6 HUNDREDS DIGIT = PORT NUMBER (0 TO 3)E/ 
025 040 040 040 
025771 040 110 125 
025774 116 122 


026024 1 122 
026027 050 060 040 
026032 124 117 040 
026035 063 051 046 
79 026040 040 040 040 -ASCII / TENS AND ONES = REMOTE NUMBER (0 TO 76)/ 


& 
~ 
roy 
wd 
~ 
fo) 
a 








ar ee ae ee ee = eee ee we — ---—- . ) 


1ian 


me a ee ee ee . P 
mee ee ee ee ae ee © eee ee ree ee ee ee ae 


H8 
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026101 102 105 122 
060 


80 026116 «= 08S (isis ASCII /ETYPE <CR> ALONE TO END INPUT/ 
026121 120 105 040 
124 074 «103 ~—:122 
026127 (076 «= (080—t—=éi101 
026132 sl@stid si 
| 026135 105 124 
026140 117 040 105 
026143 9116S 104s(00 
02614 11 116 120 
026151 125 124 
81 026153 046 046 105 ASCII /EEEXAMPLES: / 
026156 130 101 = 115 
026161 120 114 105 
| 026164 123 072 
| 62 026166 046 106 38 117 ASCII /EFOR PORT@ AND REMOTE® YOU TYPE/ 
| 026171 040 =: 120 
026178 +117 122 ~~» 124 
026177 043. s(040—i«étKO 
101 116 = 104 
040 48=122,—St—s«*105 
026210 «115.—s—s«ia:'?'—‘<iéséL DD 
026213 105 s«S 
026216 420 080s—iaS—si117 
026221 125 040 124 
026224 «86131 23S 120105 
83 026227 086239 (08G—(ié«é “ASCII /EE OO ) O<CR>/ 
026232 «(0802=S(080tiéKO 
026235 060 040 040 
026240 040 4080 «39-040 
026243 420802S's—i—(iéKO 
026246 040 040 040 
026251 060 040 040 
026254 040 040 040 
026257 040 040 040 
026262 (040 4389 040ti—éCO 
026265 074 103 122 
026270 076 
64 026271 046 040 040 “ASCII /E 0 3 3<CR>/ 
026274 040 040 060 
026277 040 040 040 
040 8=—(080—i«éK 
026305 040 040 040 
0263 040 «= (080—t—ié«éS 
026313 4 040si(80—ié«iKO 
| 0263 040 «= (040—i«éO 
026321 040 040 040 
| 026 040 40 063——ti«74 
| 026327 «103 )«=Ss(«122—ti‘« 
| 65 026332 (046 —(isi—ié«éKO “ASCII /E 1 36 136<CR>/ 
| 026335 4 4200402S'si«i—t—“‘ié‘ét SL: 
: 026 040 4©=—040—is«éO 
026343 «= (040i«i—iti«éiO 








Cc 


ee a ee 


a a a es ee ee ee ee es ee — 


I8 | 
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040 
040 
040 
040 
063 
103 


g 


$325232332 


SESESEESESES 
333 


046 


ZCMICO 
CONSTANTS, VARIABLES € ACSII 


040 
063 
040 


040 


g 


st 
fo 


BRERRERESESESEEES 


~ 
° 
il 


Qn 
8N 


-ASCII /€ 3 3 303<CR>/ 


-ASCII /€ TO BEGIN TESTING <CR>E8/ 





OO a — ) 


in 


“ CZCMICO CHRCV)-11 HOST EXERCISE MACRO VO4.00 02:24:05 PAGE 38 SE@ 0100 
CONSTANTS, VARIABLES & ACSII 
1 ERROR MESSAGES 
2 
3 026477 040 110 117 NOGO: .ASCII / HOST MICRO FAILED TO START.@/ 
026502 123 124 040 


® 
~ 
ry 
4 
~ 
~ 
~ 


00 
4 026534 040 120 4 NOTUP; .ASCII / PWR-UP SEQUENCE NOT COMPLETE.(BAD CSR).8/ 


026603 100 
S 026605 040 103 123 CSRRST: .ASCII / CSR REG. NOT RESET.&@/ 

026610 122 040 122 
026613 105 107 

026616 116 117 
026621 040 122 
026624 105 123 105 
026627 124 056 100 


6 026632 040 103 101 SPRCLR: .ASCII / CAN'T CLR SPAR REG.&/ 


103 114 
026643 122 040 123 
120 101 122 
026651 122 105 
54 107 056 100 
7 026657 040 102 101 SPRDAT: .ASCII / BAD DATA IN SPAR REG.&/ 

026662 040 104 
026665 101 124 101 
026670 111 116 
73 123 120 

026676 101 


026704 
8 026706 040 a 105 ISATE: .ASCII / REQ SCPD ADR TST ERROR.8/ 





CMRCV)-11 HOST EXERCISE MACRO VO4.00 02:24:05 PAGE 38-1 SEQ 0101 


| czenUCO 
| CONSTANTS, VARIABLES & ACSIT 
902673708122 105 OSDTE: .ASCII / RESULT SCPD DATA TST ERROR. 8/ 


756 124 101 040 

026761 124 123 124 

026764 040 105 122 

026767 122 117 122 
772 0S6 100 

123 i25 114 

02 24 040 123 

7005 103 120 104 

027010 oan 101 104 

027013 122 124 


il ress 040 122 105 ISOTE: .ASCII / REQ SCPD DATA TST ERROR.&/ 


027041 040 104 101 
ce) 101 040 
027047 124 123 124 
027052 040 105 122 
027055 122 117 122 
027060 056 100 
12 027062 040 122 105 R@SPCL: .ASCII / REQ. SCPD NOT ALL 0'S.8/ 
027065 121 056 040 
7070 123 103 120 
027073 104 040 116 
027076 117 124 040 
027101 101 114 114 
027104 047 


13 027112 040 122 105 RSSPCL: .ASCII / RES. SCPD NOT ALL 0'S.8/ 
027115 040 


123 
7 123 103 
027123 104 040 116 
027 117 
027131 101 114 114 
027134 040 047 
027137 123 056 1 


00 
14 027142 040 4 103 CLTBER: .ASCII / "CLRTPB” FAILED TO CLR TOP BYTE.a/ 


026 
10 026774 040 122 105 OSATE: .ASCII / RESULT SCPD ADR TST ERROR. 8/ 
026777 
| 
| 
| 
| 





L8 


CZCHICO CHRCV)-11 HOST EXERCISE MACRO V04.00 02:24:05 PAGE 38-2 
| CONSTANTS, VARIABLES & ACSII 


1S 027204 040 127 122 OIERR: .ASCII / WRONG CSR FOR "DIE" FUNC.8/ 
027207 +34 116 107 


SEQ 0102 


027212 103 123 
027215 122 106 
027220 117 122 040 
027223 1 ill 


7250 102 111 124 
027253 123 040 127 
7256 110 111 114 
027261 1 040 110 
027264 125 116 107 

027267 056 100 

17 027271 040 103 101 CSRCE: .ASCII / CAN'T CLR LOW CSR WHILE HUNG.@/ 

027274 116 047 124 
7277 103 114 
027302 040 114 

7305 117 127 

027310 103 123 
027315 127 110 
16 111 114 105 


18 027330 040 101 103 SPAVME: .ASCII / ACCESSED REQ SCPD WITH “MAIN” SET.@/ 


7336 105 104 
027341 122 105 
T3aa 121 040 123 
027347 103 120 
027352 127 111 
027355 124 110 
027360 115 101 
027363 111 1 
027366 040 123 105 
027371 lea 056 100 
19 027374 040 101 103 SPAVFE: .ASCII / ACCESSED REQ SCPD WITH "“STFUN” SET.9/ 
027377 103 105 123 
027402 123 105 104 


02 
20 027441 040 110 117 WNOINTR; .ASCII / HOST CAN'T INTERRUPT UNIBUS.8/ 
02 124 040 


| 027234 103 056 100 
16 027237 040 102 101 CSRWE: .ASCII / BAD CSR BITS WHILE HUNG.@/ 
027242 040 





EE TT TT em ea ae 


a ee -———— -- 
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—CZCMICO CMRC(V)-11 HOST EXERCISE MACRO V04.00 02:24:05 PAGE 38-53 
CONSTANTS, VARIABLES &€ ACSIT 


——d 


SEQ 0103 


7463 125 124 
027466 040 125 116 
027471 ill 102 125 

7474 100 


123 056 
21 027477 040 105 122 ERINTR: .ASCII / ERRONEOUS HOST INTERRUPT .8/ 


22 027532 040 127 122 WPODI: .ASCII / WRONG PRIORITY. DEV. IS HIGHER.&/ 


027551 sae 040 104 
027557 040 111 123 
027562 040 110 111 
73565 107 110 105 
7570 122 056 100 

23 027573 040 120 122 WITER: .ASCII / PROG INIT. FAILED TO INIT CSR.8/ 
7576 117 107 040 


12 114 105 1 

027615 124 117 
7620 040 111 116 

027623 111 124 
7626 103 123 122 

027631 056 100 

24 0276335 040 115 111 VISF: .ASCII / MICRO DION'T STORE VERSION NO.8/ 

7636 103 122 117 


25 027673 040 os ro VIDER: .ASCII / 2ND VERSION INFO DIFFERS FROM PWR-UP.8/ 





Sei MAmidladinl thditx oieGidiiaenc: Adana Kite &-dackie. Tole tbe de ded, Sia dedi cies Maes eae 


N8 


SEQ 0104 


CZCHICO CHRCV)-11 HOST EXERCISE MACRO V04.00 02:24:05 PAGE 38-4 
| CONSTANTS, VARIABLES € ACSII 


27 030005 


123 


Orr ere dd 
VESIRGSSSSREE 


SPAVIC: 


STESTF: 


RSPESF : 


USOFE1: 


STEMF ; 


-ASCIT 


-ASCII 


-ASCII 


- ASCII 


-ASCIT 


/ ACCESSED RES. SCPD WITh INTR CLR.8/ 


7 WRONG CSR WITH “STFUN".8/ 


7 “MAIN” RESULT FUNC. CODE WRONG.&/ 


/ BAD USOF FROM “STFUN” ON MAINT.8/ 


/ WRONG CSR WITH “MAINT” .8/ 





CZCHICO CMR(V)-11 MOST EXERCISE MACRO VO4.00 02:24:05 PAGE 36-5 
CONSTANTS, VARIABLES € ACSIT 


$1 030171 


102 
040 


USOFE2: 


DATLER: 


USOFES: 


USOFE4: 


PLFFE: 


-ASCII 


-ASCII 


-ASCII 


-ASCITI 


-ASCIT 


7 BAD USOF FROM “MAINT” FUNC .@/ 


/ “MAIN” FUNC GAVE BAD DATA LEN. &@/ 


/ RES. FUNC CODE WRONG FOR “MAIN” .8/ 


4 BAD USOF FROM “MAIN” ON REG FUNC .8/ 


/ WRONG USOF ON REGULAR FUNC .8/ 


/ TOTAL FAILURE ON “MAIN” FUNCTION. 8/ 


SEQ 0105 





meee ee ee a os eS I a ee ae ee a — — + - eee ee — cane 
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CMR(V)-11 HOST EXERCISE MACRO V04.00 02:24:05 PAGE 38-6 SEQ 0106 


CcZCMUCO 
CUNSTANTS, VARIABLES € ACSII 


030471 100 
37 030873 040 120 117 PLTXTO: .ASCII / PORT XMTR TIMED OUT.9/ 
030476 122 124 040 
030501 130 115 124 
122 124 
030507 111 115 105 
030512 104 117 
030515 125 124 
030520 100 
38 030521 040 120 117 PLRCTO: .ASCII / PORT RCVR TIMED OUT.o/ 
030524 122 124 040 
030527 122 103 126 
030532 122 040 
030535 111 115 105 
030540 040 117 
| 030543 125 124 
030546 100 
| 39 030547 040 120 117 PLDERR: .ASCII / PORT-LOOP DETECTED DATA ERROR.@/ 
030552 122 124 055 
030555 114 117 117 
030560 104 


| 030577 080s—i1005—i(tsiéi2D 
| 030602 122,Cti—i«<1's—i=séizR 
| 0 056 =: 100 


30605 
40 030607 040 110 4 SYSER: .ASCII / HOST SYS ERROR. RUN LOGIC TEST.&/ 


41 030650 040 042 104 DIAGF: .ASCII / “DIAG” FUNC GAVE WRONG FUNC CODE .3@/ 





mm me ee eee ee a ee Oe ne ee eee 0 eee 7 


Na 


sen me no ne ss es a re ee ee ee oe nee ee en ee oe cee ee me ee ee + o_o o- 


DI 


7 
CMR(V)-11 MOST EXERCISE MACRO VO4.00 02:24:05 PAGE 36-7 SEQ 010 


Z7CRICO 
CONSTANTS. VARIABLES € ACSII 


42 030715 040 125 123. DIAGUF: .ASCII / USOF WRONG ON “DIAG” FUNC.8/ 


030732 104 111 
030735 101 107 
030740 040 1 125 
030743 116 103 


46 
43 030747 040 106 117 FIFUN: .ASCII / FORCE INTERROGATE FUNC GAVE WRONG FUNC CODES/ 


o 
¥ 
x 
R33 
8 
3 


031137 101 124 105 
031142 100 


030766 101 105 
030771 106 125 
030774 116 103 040 

030777 107 101 
031002 105 127 
31005 117 116 
031010 107 106 
0310135 125 116 103 
031016 v40 103 117 
031021 104 1 100 

44 031024 040 125 123. FIFUF: .ASCII / USOF WRONG ON FORCE INTERROGATES@/ 
031027 117 106 040 
1032 127 117 
031035 116 107 040 
031040 117 116 040 
031043 106 117 122 
1046 103 1 040 
031051 111 116 124 
031054 105 122 
031057 117 107 101 
031062 124 105 100 
45 031065 040 103 117 FICME: .ASCII / COMMUNICATION ERROR DURING FORCE INTERROGATES/ 
| 031070 115 115 125 
031073 116 111 103 
031076 101 111 
031101 117 116 040 
031104 05 122 
031107 117 122 040 
031112 104 125 122 
031115 111 116 107 
31120 040 117 
031123 122 103 105 
031126 040 111 116 
031131 1é4 105 122 
31134 122 117 107 
| 
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CMR(V)-11 HOST EXERCISE MACRO V04.00 02:24:05 PAGE 39 


| CZCMICO 
| CONSTANTS, VARIABLES € ACSII 


~ 


2 
3 
5 
6 031144 031164 
7 031146 031171 
6 031150 031176 
9 031152 031204 
10 031154 031212 
11 031156 031220 
12 031160 031226 
13 081162 031244 
1S 
16 
17 031164 89 0G (tss«éGS 
0311 060 100 
18 031171 040 066 
031174 060 100 
19 031176 080 061 
03 060 060 
20031208 496 080s—i(‘étP 
03 060 060 
21031212 «= (08tié 
031215 060 060 
1220 040 071 
031223 060 060 
23 031226 486 «080—(ié«éKD 
031231 i111 107 
031234 042 040 
031237 = 120—Ss«:105 
031242 «= 104 —s«100 
24031244 «= (08—iéRD 
031247 = 1202s: 
031252 ll 101 
031255 042 040 
031260 120 105 
031263 9-104 100 
25 
26 
27 
28 


42 031320 000300 


s TABLE STORAGE 


TABLE OF BAUD RATE MESSAGE POINTERS 


BORTBL: .WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
. WORD 
sTABLE OF ASCII 
B01: -ASCIT 
B02: -ASCIT 
B03: -ASCIT 
B04: -ASCII 
B05: -ASCIT 
B06: -ASCIT 
607: -ASCII 
B08: -ASCII 


3 


sDATA TABLE FOR 


DATBL : 


PEPE EEEEEE 


B01 

B02 

B03 

B04 

B05 

B06 

807 

B08 
STORAGE FOR BAUD RATES 
3008/ 
®008/ 
12008/ 


= = ea SS 


/ “HIGH” SPEEDS/ 


/ “SPECIAL” SPEED@/ 


MAINTENANCE AND DIAGNOSTIC FUNCTION 
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CZCMICO CMR(V)-11 HOST EXERCISE MACRO V04.00 02:24:05 PAGE 39-1 
CONSTANTS, VARIABLES € ACSII 


43 031322 000200 WORD 200 
—— 000000 -WORD 000 





SEQ 0 
CHRC(V)-11 HOST EXERCISE MACRO VO4.00 02:24:05 PAGE 40 ae 


czcnuco 
| CONSTANTS, VARIABLES € ACSII 


1 sPORT CONFIGURATION STATUS TABLES. 
2 
3 031326 EXTBL1: .B6LKW 64. 
4 031526 EXTBL2: .BLKW 64. 
S 031726 EXTBL3: .BLKW 64, 
6 032126 EXTBL4: .BLKW 64. 
7 
8 : TABLE FOR ORIGINAL (PWR-UP) VERSION DATA 
2 
10 032326 VERSP;: .BLKW 9, 
11 
a sTABLE FOR 2ND VERSION DATA 
1 
6 032350 VERSUN: .BLKW 9. 
1 
* sSOFTWARE FLAG BYTES 
18 032372 000 CLKFLi: .BYTE 0 sCLOCK TICKING 
19 032373 000 CLKFLG: .BYTE 0 sCLOCK ty! 
20 032374 000 CONFLG: .BYTE 0 sCONTINUE FLAG 
21 032375 000 CNFGFL: .BYTE 0 sCONFIGURATION AVAILABLE 
0323 000 OBFLG: .BY 0 sDEBUG FLAG 
23 032377 000 FAST: -BYTE O : FAST“ EXERCISE RUN FLAG 
032400 000 GOFLG: .BY 0 :"GO” FLAG 
25 032401 000 HOURS: .BYTE 0 sHOURS STORAGE 
032402 000 INCF : BYTE O sLINE FEED FLAG 
27 032403 000 LSIFLG: .BYTE 0 i THIS IS AN 11703 
28 032404 000 MINS : BYTE O sMINUTES STORAGE 
29 032405 000 OFLOF: .BYTE 0O sERROR COUNT OVERFLOW 
30 032406 000 ONCE : -—BYTE O sINDICATOR THAT CONFIG HAS BEEN PRINTED 
31 032407 000 : .BYTE O sPRINTED ANY REMOTE INFO? 
032410 000 SAFE: -BYTE O sD0N'T ALLOW tF IN FILL COUNT RTN. 
33 032411 000 SECS: BYTE O sSECONDS STORAGE 
34 032412 000 -—BYTE O oe « AS 
35 032413 000 : .BYTE O s"THRU” FLAG 
% 032414 000 TICKS: .BYTE 0 31/60 SEC. TICKS STORAGE 





a a — a a - a en ae ee eee ree ee a eee Oe Oe Oe ee eae ees EE a omens 
1 
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CZCMICO CHRCV)-11 HOST EXERCISE MACRO VO4.00 02:24:05 PAGE 41 ted | 
CONSTANTS, VARIABLES & ACSIT | 
1 1 VARIABLES: | 
2 
3 032416 000000 : .WORD 0 
& 032420 000000 ALLFLG: .WORD 0 
5 032422 000000 BAUD: .WORD 0 
6 032424 000000 CHNGFL: .WORD 0 
7 032426 000000 CLK:  .WORD 0 
8 032430 000000 CNTR: .WORD 0 

032432 000000 CSR: WORD 0 
10 032434 000000 DEVER: .WORD 0 
11 032436 000000 ERRCNT: .WORD 0 
12 032440 000000 ITER: WORD 0 
13 032442 000000 LINLEN: .WORD 0 
14 032444 000000 MASK: WORD 0 
5 000000 PASCNT: .WORD 0 
16 032450 000000 PAT:  .WORD 0 
17 032452 000000 PCONT: WORD 0 
18 032454 000000 PORN: .WORD 0 
19 032456 000000 PORT: WORD 0 

000000 PRIO: .WORD 0 
21 032462 000000 REMFLG: .WORD 0 
22 032464 000000 REMNO: .WORD 0 
23 032466 000000 REMTN: .WORD 0 
24 032470 000000 REMST: :WORD 0 
000000 SAVEC: .WORD 0 
26 032474 000000 SPAR: WORD 0 
27 032476 000000 SPDR:  .WORD 0 
000000 58 :WORD 0 
29 032502 000000 SWREG: .WORD 0 
000000 SWRFLG: :WORD 0 
31 032506 000000 TALLY: :WORD 0 
32 032510 000000 TBLAD: :WORD 0 
33 032512 000000 :WORD 0 
34 032514 000000 VERFLG: :WORD 0 
35 032516 000000 :WORD 0 
37 
38 sCONSTANTS : 

032520 000170 VECTOR: .WORD 170 
41 032522 164070 DEVADR: :WORD 164070 
42 032524 FKPRIO: .WORD 4 
43 032526 177562 :  . WORD 177562 
44 032530 177560 KBS:  .WORD 177560 
45 032532 177546 LCS: WORD 177546 

0 177566 TTB:  :WORD 177566 
47 032536 177564 TTS:  :WORD 177564 
49 000001 END 





SEQ 0112 
CZCMICO CHRCV)-11 HOST EXERCISE MACRO V04.00 02:24:05 PAGE 41-1 
SYMBOL TABLE 
ADDR 032416 CONTW1 020276 ExSOB 012774 INTCNR 006456 PLACTO 030521 
| AGAIN 022624 CRPRM 003226 ExSOC 013012 INTCNT 006416 PLTM 024717 
| ALLFLG 032420 CRTST 003236 EXSOD 013136 INVLAD 022767 PLTXTO 
| ALROFF 025474 CSR 0 EXSONA 012764 IRRGMG 025461 PNCFLG 032407 
| BAD 020100 027271 ExSOO 012654 ISATE 026706 T 022114 
BAUD 032422 CSRRST ExSO1 013214 027030 PNICNF 021556 
024537 027237 EXSOIA 01 I * PNTCX 
BCNTO 003034 031266 ExS2 013312 ITER 032440 PNTCO 021574 
BCNT1 003040 DATLER 0 ExXS28 013352 JUST 022074 
BCNT2 003070 022742 ExS2c 013402 021530 PNTEXT 
BCNTS G 032376 EXSS 013412 KBD PNTRTN 012522 
BCNT4 003114 DECJSP 021740 EXS3A 1 021060 PNTO 012456 
002674 021712 EXS38 013502 KBRET 021072 PNT1 
BORTBL 031144 020012 EXTBL1 031326 KBS 0 011232 
801 031164 DEVADR 032522 EXTBL2 031 KRTN 021524 PORCN 01 
031171 DEVER 032434 EXTBLS 031726 LCS PORCNF 015356 
B03 031176 DEVGEN 017546 EXTBL4 032126 LO@FC 6014312 PORLD 015570 
B04 DIAGF 030650 EX1 020340 01 
B0S 031212 DIAGFU 013730 356 LOGRT 014330 032456 
031220 DIAGF 01 EX3 020370 014172 PORTLP 011154 
807 031226 DIAGUF 030713 xa LGKTSM 45 
B08 DIAGO 016332 EXS 032442 PORTN 024745 
002000 DIAGOO O01 EX6 0204 LOGTST 003160 PORTOM 024555 
BINPNT 021664 0 016370 FAST 032377 LSIFLG 032403 PORTIM 024571 
335 DIAGIO 01 FICME 031065 LSTST 017406 PORTOM 
B00. = 016474 FIFUF 031024 PORTSM 024621 
B01 =» 000002 DIAGSS 016660 FIFUN 030747 MINS 032404 PORXT 015632 
B02 = DIAGA 016666 FILL 021532 020172 015452 
803 = 000010 DIERR 027204 021536 MONIC 020166 015470 
B04 os DIVID 022024 FKPRIO MONIT 020152 POR1 015544 
805 = DIVSET 022022 FLCNT 021534 MOV 005544 PROFLT 017612 
B06 = 000100 DPCSTA 000000 022577 MOVE 003302 PREML 016230 
BO7 = 025537 GOD N : 7 PREMO 016102 
B08 = DVATSY 017434 GETCHR 020636 NEK 021052 PREM1 016212 
809 = 001000 CT 022657 GETDG 022042 NOCNF 023105 PRIO 0 
B10 = DVPRIO 022703 GOFLG NOGO PRLC 011162 
Bil = ELTIM 024651 020076 NOINTR 027441 PRHT1 002176 
Bi2 = 010000 012322 GRHLP 02567 NOKEFL PRMT2 002222 
B13 = ENDPS 024635 GTREM 025137 PRHTS 002310 
Bi4 es HDER 017654 NOTUP 026534 PRHT4 002376 
815 = 100000 ENPRTN 011072 HELPM NRTRN 0210 PRMTS 002422 





_ - ee a a 8 ee ee: eS ee em a a a 


CZCHICO CMR(V)-11 HOST EXERCISE MACRO VO4.00 02:24:05 PAGE 41-2 
| SYMBOL TABLE 


Pst? 011672 SCA2ZA 015212 ST1 003354 
-PST7S 011760 SCA2B 015234 ST1A 003362 
PSTs 011772 SCA2C 015246 ST10 004422 
PST8S 012060 SCA2D 015254 ST100 0044 
PsTso 012072 SCA2E 15266 ST101 004506 
PST8OS 012160 SCA2F 015310 ST110 004520 
PST9 012172 SCA3 015330 ST110S 2 
PST9S 012314 SCONT 017530 ST111 004630 
PO = 000000 SCORTN 017544 ST112 004652 
Pi = 000040 SCPAD $T120 
Pe = 000100 SCPRTN 017474 Ti 004760 
PS = 000140 SECS 032411 ST121 004766 
Pa . SKPD2 013516 $T13 
PS = 000240 SKPXO 013534 ST130 005010 
P6 = 000300 SKPX1 013600 T131 
P7 = 000340 SKP1 013746 ST131A 005034 
RADIX 022210 SKPIA 013766 $T1318 
RECON ©24412 SKP1B 013772 S$T132. 005100 
REGIG 025450 SKP2 01 Ti 005174 
REGRES 017370 SKP3 014016 $7133 005202 
REGSAV 017354 SKP3A 14036 ST134 005222 
SKPSB 9014042 ST13S 005236 
REIFLG 032462 SKP4 014050 ST135S 005332 
REMIND }80 6032464 SKPS 01 ST136 
SKPSA 014106 ST1i4 005356 
REMST 032470 SKPSB 38014112 sTiS 
REMS TM SKP6 ST1S0 005616 
REMTN 032466 SKP7 014136 ST16 
REPORT 015660 SKP7A 014156 ST160 005726 
015732 SKP7B 014162 ST161 006014 
REP1 015762 SKP8 014170 ST162 006122 
016012 0324 $T17 006230 
REP2O SLOW $T170 
016060 SPAR 032474 ST170R 336 
RESTRT A 027374 ST16 006530 
022206 SPAVIC 027742 S$T160 
RNB 025657 SPAVME 027330 $T161 
R@SPCL 032476 ST162 006730 
030266 SPRCLR 32 $7183 007020 
RSPESF 030036 SPRDAT 026657 $T19 007040 
RSSPCL 027112 SR sT2 003456 
032410 SRTST 017416 ST20 007146 
SAVEC 032472 ° ST200 7 
017512 STATEM 025323 $T201 007272 
SCALM 014766 EMF 030140 ST202 007352 
SCART 015354 STESTF 0O ST203 007440 
SCA1 015030 RAN =6013150 ST 007526 


ST 
015116 STO 


- ABS. 032540 000 

ERRORS DETECTED: 0 

VIRTUAL MEMORY —: 6704 woes ( 34 PAGES) 
DYNAMIC MEMORY AVAILABLE FOR PAGES 
CYOMIC/E ABS CZCMIC ZC +E sH:S+R@CZCH. MAC 


JI 


<Q 


ST205 007556 TSTHOR 
007636 TSTRSK 
ST207 007724 TSTSEL 
ST21 010012 8 
ST22 01 0 
220 010120 TTOLF 
ST221 010126 TTOLP 
ST222 102 TTS 
ST223 010312 TWwOSsP 
ST224 10326 T 
ST23 010424 TYPCTP 
ST23A 010436 TYPOUT 
ST230 010472 USOFE1 
ST24 011006 
ST2s 011024 USOFES 
ST26 011062 USOFE4 
ST3 003542 
di 003 VECTOR 
ST60 003656 VERSM 
ST61 003672 VERS? 
st 004002 
$T7 004042 VIDER 
$T70 004052 VISF 
ST71 004124 T 
ST60 064134 WOS0B 
ST860S 004236 WOWAS 
ST81 
ST62 004266 T 
ST90 004 $0$ 
ST90S 004376 $00$ 
ST91 $1$ 
$108 
SWHLT 017454 $11$ 
0 $13$ 
SWRFLG 0 $2ns 
SWRMSG 023075 $2$ 
SYSER 030607 $208 
TALLY 032506 $21% 
TBLAD 032510 $22% 
TEMP 032512 $23% 
T 032413 $24% 
TICKS 032414 $25$ 
TPCONT $26% 
TPOFCH 020) $3$ 
TPOUTX 020614 $48 
TRP4 023033 $58 


SEQ 0113 


022212 


a TT EE ES SS SS SK —_— ——— eee oo ae 
| 
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SEQ 0114 

CZCHICO CHRCV)-11 HOST EXERCISE MACRO VO4.00 02:24:05 PAGE S-1 7 

CROSS REFERENCE TABLE (CREF V04.00 ) 

908 28-20 28-36 

3008 40-28-1828 -21e 

$18. -8-25@ «28-38 28-83 

| $208) «= «28-31 28 -37@ =. 28-71 

3118 «38-40 28-580 28-75 28-78 

3138 28-66 28-760 

$28. 28-29 28-390 

$208 028-428-650 

$218 28-57 28-680 

$228 «28-70 -28- 728 

$238 4028-77 28-798 

$288 028-89 = -28-918 

$258 28-80 8-840 

$268 46-28-85 (8-870 

SOA 028-430 28-82 

338 28-46 28-490 

$48 = «28-48 © 28-50@ 28-53 

$$ 0s «8-51. s« 28-548 

ADDR 28-240 28-25 28-278 «28-28 «= 28-30 2B-S4e «28-58 0s 28-67# 28-68 = 41-30 

AGAIN 3-33 3-47 3-57 3-61 17-35 18-59 28-37 33-45 37-130 

MLLFLG 17-15¢ 17-28e 17-33¢ 17-123 41-40 

RROFF 23-50 25-33 37-720 

B00 1-51@ 7-12 21-28 22-17 24-23 27-21 28-49 

B01 1-500 

B02 1-49¢@ 

B03 1-480 

B08 1-47@ 10-5  10-39—«:17-122 «21-10 22-16 = 22-58 23-13. 24-13 24-53. 27-20 27-54 28-43 

805 1-460 23-31 

B06 1-45@ 23-35 

807 “4ae 28-47 

808 1-43@ 7-17 7-18 

809 1-420 7-23 8-8 8-10 6-51 8-54 6-56 8-62 9-11 17-110 

810 1-41@ 6-27 16-66 17-146 18-167 

B11 1-40@ 16-62 17-142 18-163 23- 
1-39 23-6 

B13 1-38@ 23-17 29-57 

B14 1-370 “6-31 6-41 6-48 7-9 -21 6-22 6-23 6-39 8-40 8-68 6-69 8-85 8-86 
9-22 9-28 9-38 9-39 10-10 10-35 11-6 11-15 41-25 11-35 12-11 12-16 12-31 13-13 

14-23 14-29 : 14-43 14-48 14-54 14-61 14-68 15-15 15-22 15-29 


So 

12 

1 22-38 22-49 22-50 23-22 24-24 24-32 27-22 27-31 27-38 27-39 
37 7-19 
82 
9e 
56 
5 
Se 


10-8 
14-25 
15-27 22-26% 





A em —— ) 
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| CZOMUCO CMRCV)-11 HOST EXERCISE MACRO VO4.00 02:24:05 PAGE S-2 SE@ 0115 
| GROSS REFERENCE TABLE (CREF V04.00 ) 


808 
BORTBL 16-24 16-32 16-44 16-52 39-60 


BEGIN i-S2 3-3 3-100 

BINPNT 35-300 

BRKCOM 6-15 37-420 

CCRTN 30-260 

ceLP 16-42@ 16-45 

CHNGFL +16-108e 16-130 16-139 16-144¢ 19-5e 19-19 23-Sie 41-60 


aK 6-S0e 6-S4e 26-27 26-308 27-Se 27-17¢ 41-76 

CLXEXT 4-7 4-11 4-15 4-160 

CLUXFLi 0 4-48 5-7e 17-149 18-170 40-160 

wet 3-740 3-960 $-22 5-28 5-34 28-17 28-84 40-190 


6-26¢ 6-29¢ 6-336 6-39e 10-25¢ 10-26¢ 10-34e 10-37 13-5¢ 13-60 14-80 14-27¢ 14-45¢ 14-S2e 
16-11¢ 16-14e 17-7s 17-10e 17-49e 17-53e 16-41 18-448 20-5¢ 20-14 20-18% 20-27 20-308 20-39e 


: 23-S7e¢ 24-13 24-23¢ 24-24 24-S3e 27-20e 27-21% 
27-22 27-S4e 26-22 28-30 26-32 26-43e 26-47+ 26-49 28-50 29-700 41-96 
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CZCRICO CHRCV)-11 HOST EXERCISE MACRO VOS. 00 02:24:05 PAGE S-3 SEQ 0116 


| GROSS REFERENCE TABLE (CREF 


DIAG 20-15 20-26 20-38 20-50 27-5¢ 


OPCSTA 2-40 
186-50 37-730 
OVATST 2-6 3- 29-360 
3-40 37-140 
3-50 37-150 
ELTIN 30-67 37-S2e 
ENO1 16-60 -83@ 


ENDO 
ENDCHK 17-76 17-86 17-96 17-106 17-1220 
ENPRTN 16-69 16-75@ 17-146 16-169 


16 
6-31 11-25 11-35 12-11 12-16 12-31 13-22 13-50 17-12 17-79 17-89 17-99 18-46 22-49 


29-106e 29-109e 29-115 29-122 29-123¢ 29-1360 
6-lle 16-63 17-17¢ 186-40e 29-61% 41-116 


ERRCNT 

ERRM 

ERRMM «= 66-316 6-41¢ 6-460 7-9 7-21¢ 8-226 6-39¢ 8-68¢ 8-85¢ 9-226 9-36¢ 10-10e 10-35¢ 11-8¢ 
11-15e 11-25e 11-35¢ 12-11¢ 12-16 12-31e 13-13¢ 13-22¢ 13-308 13-S0e 14-298 14-36e 14-43¢ 14-S4s 
14-61¢ 14-68¢ 15-22¢ 15-298 15-40¢ 17-126 17-79¢ 17-89¢ 17-998 17-113¢ 18-46%  22-29e  22-37¢  22-49¢ 

" er 8 44 27-3ie 27-38¢ 29-112 29-1370 


Ex2 30-40 30-430 

Ex3 30-44 30-470 

Exa 30-48 30-510 

ExSs 30-S2 30-54 30-56 30-590 
Ex6 30-14 30-60 30-620 

EXCM 16-48 37-S6e 

EXRCS 16-360 

ExSOO 8 18-45 16-460 

Exsoi 16 18-1 

EXSOIA 186-113 16-1150 

EXSOA - - 16-60 

ExSOB 16-56 18-650 16-66 18-90 
ExXSOC 16-680 16-74 16-65 16-97 
ExXSOD 186-60 16-680 

EXSOMA 16-58 18-620 

Exs2 16-125@ 16-136 16-136 16-156 16-159 16-175 
EXS2B 16-126 16-1530 

Exs2C 186-1410 


NIG 


16-131 


(CREF v04.00 
16-134 16-140 
18-153¢ 
16-152 16-1576 
18-9 16-1030 
16-65 16-103« 
18-119 19-10 
186-120e 19-13 
186-i21e 19-16 

8-62¢ 16-105« 
38-456 

38-440 

36-43¢ 

33-41 33-470 
33-1020 
41-420 

35-S6e 35-59¢ 
37-120 

12-190 

-34 32-39 
36-110 
26-81 33-21¢ 
6-37 6-45¢ 
6-66 8-800 
11-13 13-6¢ 
14-S7e¢ 14-59 
-35 27-27¢ 

37-760 
37-740 

3-65 29-940 
37-240 
386-230 

5-430 

37 

S-lle 30-68 
3-21 
20-24 20-36 
22-560 
22-240 
22-320 
22-460 
22-580 
22-440 
22-22 
22-30 22-44 
33-200 33-77 
3-44 3-54 
45° 12-32 
7-170 

37-710 
36-60 

36-110 

3-4 3-10 
16-60e 16-64 
36-25 

5-31 3-39 


16-1430 


16-116 
20-17 


33-1000 


36-42¢ 


40-250 


17- 146 
3-416 


22-70 


6-17 


29-95 
17-1406 


3-45 


17-24 


29-101 
17-1446 


3-49 





N9 


| CZOMICO CHR(V)-11 HOST EXERCISE = VO4.00 02:24:05 PAGE S-4 
CROSS REFERENCE TABLE ) 


21-9 


17-58 


30-41 
16-368 


3-Sie 


25-7 40-30 


20-46 40-230 


7-15 7-164 
9-36 10-64 
14-23¢ 14-25 
15-25¢ 15-27 
29-1380 

16-53 18-75 
30-4 


9 33-27 
16-1614 16-165¢ 


3-55 3-59 


28-26 


41-120 
3-63 


6-18s 
10-30 
14-34 
15-38 


3-640 


Te ae 


SEQ 0117 


32 
14-39¢ 14- -41 14-48¢ 
17-112¢ 22-25¢ 22-27 


30-25 32-80 33-42 


3-65¢ 3-66 3-67 








B10 


CZCHICO CHR(V)-11 HOST EXERCISE MACRO VO4.00 02:24:05 PAGE S-5 
CROSS T ¢ vos .00 ) 


REFERENCE TABLE (CREF 


3-68 5-16¢ 5-20 5-26 5-32 
18-55 18-57 16-73e 18-77 16-81 
32-lle 32-26¢ 32-26e 32-30e 32-31 

«BO 30-15 30-31 33-19 41-430 

KERO 32-12 33-17@ 33-18 

KBRET 30-58 33-200 

KBS 30-12 30-29 33-17 1-440 

KRTN 33-35 33-53 33-57 33-60 33-65 

ics 3-76 5-260 5-We -36e 26-19 

LO@FC «21-298 =. 21-32 

LO@P 21-230 21-26 

‘LD@RT 21-30 21-330 

/LO@UE 186-104 21-90 

LGKTSM 6-12 37-410 
25-6e 26-22e 26-240 26-35e 41-130 

LOGTST 5-25 6-70 

|LSIFLG 3-140 29-25¢ 40-270 

LSTST 3-15 29-250 

MASK 7-i2e 7-26 7-27e 41-140 

MINS 4-13¢ 4-14 4-16¢ 5-10e 30-72 

MONCH 60-30-16 

MOMIC 30-13 30-150 

MONIT 7- 16-71 17-70 17-75 17-153 

-- 13-60 13-7 

vB 6-270 6-30 

iN 1-S8e@ 836. 6 - 31 6-31 6-31@ 6-41 

: 7-21 7-210 6-22 6-22 8-220 
9-22 9-22 9-220 9-38 9-38 
11-86 1-15 11-15 11-15@ 11-25 
12-16 12-16@ 12-31 12-31 12-316 


13-50 13-50 13-S0@ 8 14-29 14-29 


1S 17-12 17-12 17-120 
17-113 17-113 17-113@ 186-46 16-46 
22-498 23-22 -22 3-220 24-32 


32-8¢ 32-33¢ 32-40¢e 32-48 33-960 
32-16 32-480 33-83 33-86 33-92 
ALLS 3-23 5-14 16-57 16-68 16-70 
ULOUT 
APPNT 35-15 35-24 35-33 35-42 35-51 
OCTPNT 6-27 6-44 6-73 8-90 9-27 
26-9 26-17 27-44 27-48 27-52 


OFLOF 6-10e 16-79 17-16¢ 186-39¢  29-63¢ 
ONCE > es he 16-146 16-153¢ 18-156¢ 


OVFLM 16-81 37-540 


5-39 
16-93 
32 -42¢ 


33-71 
26-20¢ 


17-152 

36-30 
9-43 

26-72 


40-290 
23-490 


6-16¢ 
26-25e 
32-43¢ 


33-78 
26 -86e 


33-930 


22-43 
29-127 


22-55 
29-130 


SEQ 0118 


30-110 

7-9@ 7-21 

6-85 6-650 
11-6 11-6 
12-110 12-16 
13-30 13-300 
14-54 14-54 
15-290 15-40 
17-99 -990 
22-49 -49 
27-380 


23-28 23-40 
w-21 33-39 





5€Q 0119 
CZCMUCO CMR(V)-11 HOST EXERCISE MACRO VO4.00 02:24:05 PAGE S-6 
CROSS REFERENCE TABLE (CREF V04.00 ) 
ra’) 1-32@ 17-65 
Pl 1-310 
P2 1-300 
Ps 1-290 
Pa 1-260 
PS 1-276 
Pe 1-260 
7 1-25@ 3-12 3-16 3-20 3-89 5-5 
| 6-92 16-65e 16-76 17-16¢ 17-145¢ 18-37 16-1660 41-150 
PAT 7-lle = 7-13 7-23 7-25¢ 7-260e 41-160 
PCONT 3-260 3-43¢ 3-53e 5-17e 5-19¢ 6-15¢  6-18¢ 17-23 17-25¢ 17-560 17-S9e 16-S2e 16-S4e 18-740 
18-76¢ 26-88 286-90 30-260 30-260 30-S7e 33-48  33-Si 33-66 33-68 41-170 
PLDERR 17-113 38-390 
PLFFE 17-79 38-360 
PLRCTO 17-99 38-380 
PLT™ 17-19 37-5S¢ 
PLTXTO 17-89 38-376 
PNCFLG 25- 25-10 25-160 25-22e 25-280 25-31 40-310 
PNT 3%-19 36-21 36-270 
PNTO 17-141 17-1440 
PNT 17-1450 
3 34-90 
PNTOM 30-61 33-58 34-S@ 
PNTCX 34-8 34-100 
17-124 17-132 17-1400 
PNTEXT 36-13 36-170 
PNTRTN 17-143 17-147 17-1534 
POK 17-9 17-140 
PORO 24-240 24- 
PORCO 24-25 264-280 
POR 24-31 24-340 
PORCN 24-430 24-48 
PORCMF 19-9 19-12 19-15 19-18 24-120 
PORLD 24-39 24-410 
PORN 19-8e 19-11e 19-14e 19-17¢ 24-21 24-49 25-1le 25-17¢ 25-23¢ 25-29¢ 26-8 41-186 
PORT 17-290 17-37¢ 17-46 17-48 17-63 17-93 17-103 17-117 17-125 17-127¢ 17-129 17-131 17-133 17-135 
17-137 41-190 
PORTOM 16-17 37-470 
PORTIM 16-29 37-480 
PORT2M 16-37 37-490 
PORTSM 16-49 37-500 
PORTLP 5-31 17-76 
PORTMS 17-82 17-92 17-102 17-116 26-7 37-620 
PORTN 17-21 37-560 
FORXT 24-40 24-490 
PROFLT 3-27 3-42 3-52. 29-820 
PREMO 26-108 26-23 26-32 
PREM1 26-290 26-31 
PREM = 26-21 26-330 
PRIO -68e 12-24 41-200 
PRLC 17-86 17-11 


PRAT? 3-390 3-43 3-48 
PRATS 3-46 3-490 3-53 3-58 3-62 
PRHT4 3-56 3-590 33-66 
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CZCHICO CMR(V)-11 HOST EXERCISE MACRO V0O4.00 02:24:05 PAGE S-7 
CROSS REFERENCE TABLE (CREF V04.00 ) 


| PRNREN «25-12 25-18 25-24 25-30 26-70 
_ PROMNT 3-25¢ 3-26 3-34 29-38 


=~ 
~ 
rs 
~ 
' 
fy 
~ 
~~ 
~d 
’ 


PSTS 17-65@ 17-85 17-95 17-105 17-119 =617-138 =. 117-154 


TS 
RADIX  36-3¢ 3-6 36-8 36-540 


RECON 17-20 18-49 37-430 

REGG 23-35 37-700 

REGRES 29-15@ 35-16 35-25 35-34 35-43 35-S2 
REGSAV 29-80 35-12 35-21 35-30 35-39 35-48 
REMCMG 23-24 37-680 

REPFLG 41-21¢ 

REMIND 620-80 20-21e 20-33¢ 20-45¢ 22-14 27-14 41-220 
REMSG 22-40 23-25 27-41 37-63¢ 

REMST 41-240 

REMSTM 23-29 37-690 

REMTN 8 41-230 

REPO 25-9 25-130 

REP 1 25-15 25-190 

REP2 25-21 25-250 

REP20 25-27 25-310 

REPS 25-32 25-340 

REPORT 16-150 25-40 34-7 

RESTRT 3-6 3-85@ 29-102 

RFLG 35-135e 35-226 35-31ie 35-40e 35-49¢ 36-20 36-26e 36-530 
ROB 16-71 37-750 

ResPCL §9=- 9-22 36-120 

RSPEPF 15-22 38-330 

RSPESF 14-36 36-266 

RSS#PO. = 9-38 36-136 

SAFE S-12e¢ 30-55 33-33 33-37¢  33-S2e 33-56 33-70 40-320 
SAVEC 26-22¢ 41-250 

SBAK 29-54 29-560 

SCA1 23-7 23-140 23-53 

SCA2 23-21 23-240 

SCA2ZA 23-32 23-350 

SCA2B 23-36 23-390 
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CZCHICO CHRCV)-11 HOST EXERCISE MACRO V04.00 02:24:05 PAGE S-8 SEQ 0121 
GROSS REFERENCE TABLE v04.00 ) 


CCREF 


18-125 os -e3 22-21 23-60 24-22 24-26 27-19 27-24 


™T™ 6-32 6-42 6-49 7-10 7-22 8-28 8-45 6-74 8-91 9-28 9-44 10-11 10-40 11-9 
11-16 11-26 11-36 12-13 12-17 12-32 13-14 13-23 13-31 13-51 14-30 14-37 14-44 14-55 
14-62 14-69 15-23 15-30 15-41 17-865 17-95 17-105 17-119 22-30 22-44 22-56 27-32 27-53 


29-S2e 
secs 4-90 4-10 4-12e 5-9e 30-76 40-336 
SKP1 20-6 20-86 20-15 
SKPIA 20-10 20-13¢ 
SKP1B 0s «90-12 20-144 
20-7 20-17¢ 
SKP3 20-19 20-21@ 20-28 
SKPSA 20-23 20- 
SKP3B 20-25 20-278 
20-20 20-298 
SKPS 20-31 20-33@ 20-40 
SKPSA 20-35 20-380 
SKPSB) 20-37 20-390 
SKP6 20-32 20-414 
SKP7 20-43 20-45¢@ 20-52 
SKP7TA 20-47 20-5008 
SP7B 8 6020-49 20-51¢ 
20-44 20-530 
SxPD2 186-142 16-161¢ 
SKPXO - 16-1656 
SKPX1 18-164 18-168 16-1740 
286-39 26-76 33-220 33-81 40-340 
SLOW 186-114 37-590 
SPAR 6-Sle 6-568 7-5Se 7-7 7-15¢ 7-16 8-5e 6-80 8-100 8-11 8-13 6-162 8-26 8-29 
6-3i¢ 8-340 8-43 8-46 8-482 8-Sise 6-540 6-560 8-57 6-590 6-62 8-72 8-75 6-77 
6-81¢ 6-89 8-92 6-946 9-Se 9-7 9-9" 9-1lle 9-13 9-15¢ 9-17¢ 9-26 9-29 9-3i¢ 


22-24% 22-320 22-41e 22-46e 22-53e 23-19 23-260 23-30e 24-14e 24-16 24-18% 24-200 24-290  24-34s 


22- ° 2 
24-216 24-30 24-35 24-43 24-45 27-6¢ 27-10e 27-12e 27-14 27-16e 27-28 27-35 27-43 27-47 





oS LS SE Ee Eo OP oes a ee ee rR ee —_——"y 
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SEQ 0122 | 

| CRowuCO creCy>. 11 MOST EXERCISE MACRO VO*.00 02:24:05 PAGE S-9 

S REFERENCE TABLE (CREF v04.00 | 
27-51 s «28-45 28-59 0s 28-62 28-640 9029-740 3941-270 
?- 38 -6@ 

| SPRDOAT 7-21 38-7¢ 

SR 3-21e 3-22 6-31 6-41 6-48 7-9 7-21 8-22 6-23 8-39 8-40 8-68 8-69 8-85 
8-86 9-22 9-23 9-38 9-39 10-10 10-35 11-8 11-15 11-25 = 11-35 12-41——s‘«a12--16——ié«i:2-- 3831 
13-13 13-22 13-30 13-50 14-29 14-36 14-43 14-54 14-61 14-68 15-22 15-29 5-40 16-62 

| 16-66 17-12 17-79 17-80 17-69 17-90 17-99 17-100 17-113 17-114 17-142 17-146 18-46 18-163 
18-167 22-29 22-37 22-38 22-49 22-50 23-22 24-32 27-31 27-38 27-39 29-306 -§3 . 
30-20 30-23 30-27¢ 41-280 

SRTST 3-19 29-300 
1-10@ 29-30 

STO 6-25@ 6-32 6-42 6-49 16-72 

$Tl 6-28 6-330 

ST10 8-47 8-51¢ 

ST100  8-S3@0—s_ «8-61 

ST101 8-58 8-620 

ST110 8-640 8-74 8-79 

ST110S 8-70 8-740 

STlll 8-67 8-75¢ 

STll2 8-76 8-800 

ST120 8-820 8-91 8-95 

ST120S 8-87 8-910 

STi21 6-84 8-920 

sT13 8-93 9-Se 9-28 9-44 

ST130 (9-60 9-10 

ST131 9-14 9-170 

STI31A 9-8 9-11¢ 

STi31B 9-12@ 9-16 

ST132. 9-198 =—s_-9--32 

ST132S 9-24 9-280 

$1133: 9-21 9-290 

ST134s- 9-30 9-330 

$7135 9-35@ 9-48 

ST135S 9-40 9-440 

ST1136 0-9-3 9-450 

ST14 9-46 10-5@ 10-11 

sT15 10-9 10-18@ 10-40 


14-37 14-44 





A ea ee ee —-< — ) 
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| CZCMICO CMR(V)-11 HOST EXERCISE MACRO V04.00 02:24:05 PAGE S-10 
| CROSS REFERENCE TABLE (CREF V04.00 ) 


} 
SEQ 0123 | 


| $T20a 14-42 14-45@ 814-55 14-62 14-69 


ST22 15-S¢@ 15-23 15-30 


St223 15-28 1S-31@ 15-41 


st2s 16-58 16-61 16-640 
ST26 16-63 2 16-710 


ST6 ty 7-Se 7-10 
ST61 7-130 7-22 7-29 


ST80 6-16¢ 8-28 8-33 


ST8O0S 8-24 8-260 
8-290 
sTé2 8-30 8-340 
ST90 8-360 8-45 6-49 
ST90S 6-41 6-450 
ST91 6-36 -460 


SMuDrPp 
SWAT 17-13 16-47 23-23 24-33 29-430 29-55 


TALY 186-35¢ 16-66 16-64 16-88 16-94% 18-95 16-103 16-117 186-137 18-146 19-6¢ 23-42¢ 23-44 23-46% 
TBLAD 19-7s 19-106 oi 19-16 24-12 41-320 


TEP 29-940 29-97¢ 29- 41-330 
16-116¢ 16-133 16-155¢ 16-157¢ 23-S6* 40-350 
TICKS 4-Ss 4-6 4-66 5-86 30-80 40-360 





Re ee ee ee mm ee - " 


CZCHICO CMR(V)-11 HOST EXERCISE MACRO VO4.00 02:24:05 PAGE S-11 
CROSS REFERENCE TABLE voa.00 ) 


CCREF 

5-39¢ 
37-23¢ 
41-46¢ 
23-9 23-10 23-11 
29-89 -38 30-71 
36-340 -41 -44 
36-400 
36-36 
41-476 
26-61 30-22 33-40 
17-55 37-S7¢@ 

37-220 
-25 3-33 3-40 

8-42 8-71 8-88 
16-56 16-75 16-78 
18-49 18-50 18-59 

3-33 23-37 23-50 
29-111 29-114 29-116 
38-290 
38-31¢ 
38-340 
38-35¢ 
37-660 

3-49e 12-3 12-7¢ 
16-4 16-7 41-340 
37-45¢ 
13-18 40-100 
16-8 40-146 
38-250 
38-240 
29-145¢ 
29-1460 
29-147¢@ 

8-7 8-140 8-178 
11-22 11-23 11-29¢ 
16-20¢ 16-2i¢ 16-22¢ 
16-42¢ 16-43¢ 16-45¢ 
38-220 


12-22 


ee ee ee +e 


29-75 


8-326 
11-31 
16-25 
16-50 


26-19 26-26 26-29 
31-22 32-13 32-24 
3-57 3-61 5-15 
16-10 16-16 16-17 
17-20 17-21 17-35 
18-72 16-83 16-114 
26-7 27-41 27-45 
30-19 30-22 30-28 

41-40¢ 

6-520 8-53 8-60 
11-32 11-33 13-446 
16-26 16-30e 16-31 
16-51 16-53« 16-54 


8-63 
13-45¢ 
16-33¢ 
41-350 


26-35 
32-38 


SEQ 0124 

26 -56 28-74 29-83 
33-62 33-87 35-58 
6-12 6-13 6-14 
16-36 16-37 16-48 
17-92 17-102 17-116 
22-52 23-24 23-25 
26-37 28-61 29-37 
33-36 33-40 33-45 
8-78 11-19¢ 11-20 
13-47 13-48 16-18 
16-36 16-39¢ 16-40¢ 


a. me ee ee ee wee | a ~~ 





SEQ 0125 
CZCMUCO CMR(V)-11 HOST EXERCISE MACRO V04.00 02:24:05 PAGE R-1 
| Ross REFERENCE TABLE (CREF V04.00 ) 
PC 1-21¢ 3-23¢ 3-240 3-25¢ 3-270 3-290 3-336 3-40¢ 3-420 3-440 3-476 3-500 3-520 3-540 


3-S7e 3-61 3-69¢ 3-93 5-140 5-15¢ 5-16¢ 5-41 5-430 6-12¢ 6-136 6-146 6-176 6-31¢ 


‘ 
~ 
. 
w 
w 
a 
y 
. 
? 
~~ 
? 
a 
oo) 
* 
~ 
@ 
a 
= 
~ 
t- 
’ 
nt 
roy 
* 
~ 
oe 
' 
~ 
~— 
& 
- 
oe 
r 
® 
~ 
oe 
' 
@ 
w 
ie 
(>) 
’ 
2 
- 
ay 
oe 
+ 
~ 
= 
ee 
2 
= 
@ 
’ 
5 
B 
~ 
@ 
' 
5 
ray 
@ 
’ 
‘ 
ee 


25-12¢ 25-18¢ 25-24¢ - 25-33¢ 25-34e 26-7s 26-9s 26-12¢ 26-14 26-176 26-19 26-26  26-29¢ 
26-34e 26-360 27-19% 27-240 27-31e 27-38e 27-41¢ 27-440 27-45¢ 27-460 27-49e 27-52 27-55¢ 26-236 
26-26¢ 26-73e 26- 26-37e 26-S2e 26-56%  26-60¢ 26-61  286-63¢ 26-72¢ 26-74e 26-91%  29-37¢  29-45e 
29-46¢ 29-S2e -SSe 29-77e 29-63¢  29-85¢ 29-87  29-89e  29-90e  29-96¢ 29-99 29-1008 29-1ile¢ 
29-113¢ 29-114e 29-116¢ 29-116e 29-119e 29-124e 29-125¢ 29-127¢ 29-126¢ 29-130e 29-1351¢ 30-19¢ 30-21¢  30-22¢ 
- - -38e : -61¢ -62e 30-67 30-69¢ 30-7is -73¢ - 30-77¢ §O- 30-81¢ 





32-41¢ 32-45 33-196 33-240 - 33-31 33-360 33-36e 33-40e 33-45¢ 33-54 33-64 «= 33-74 = 33-768 
33-79 33-64 33-89 34-9e 35-576 “6 36-88 36-11 36-126 36-22 36-278 36-260 36-34 36-37 
36-400 36-430 36-478 
Ri 1-15@ 6-S2e 6-S3e 13-186 13-24 13-32 16-8 16-12 17-50* 17-52 20-4# 20-5 20-8 20-178 
20-18 20-21 20-290 - 20-33 20-41e §=20-42 «20-45 21-9e = 21-12 21-24 = 24-128 24-38 24-430 
24-45¢ 25-7¢ 25-8 25-13¢ 25-14 25-198 25-20 25-25¢ 25-26 26-10 26-15 29-11 29-17¢ 32-9 
32-17¢ 32-18¢ 32-19  32-Sie 32-S4e 35-140 35-23e 35-320 35-416 35-50e 36-3 36-Se 36-9¢ 36-12 
R2 1-16@ 13-19¢ 13-20¢ 13-25 13-32 16-9¢ 16-18 16-30 16-38 16-50 18-65¢ 18-66  18-93¢ 27-6 
27-16 29-10 29-16  36-4¢ 36-14 836-16 
RS 1-170 16-246 16-268 16-27 16-328 16-34e 16-35 16-440 16-46¢ 16-47 16-S2e 16-S4* 16-55 29-9 
29-19 36-17¢ 36-16 36-246 
| Ra 1-186 29-8 29-20s 
RS 1-190 6-326 6-42e 6-496 7-108 7-226 6-266 6-45 6-748 8-91e 9-28¢ 9-448 10-11%  10-40¢ 
| 
| 


1 
14-55¢ 14-626 14-69¢ 15-23¢ 15-30e 15-41¢ 17-85¢ 17-95 17-105e 17-119¢ 22-308 22-44%  22-S6* 27-52¢ 
27-53 29-13 29-21¢ 29-56 29-59e 29-648 35-126 35-16% 35-218 35-258 35-3008 35-34e 35-390  35-45¢ 





SEQ 0126 
“CZOHUCO CHRCV)-11 HOST EXERCISE MACRO VO4.00 02:24:05 PAGE R-2 
| GROSS REFERENCE TABLE (CREF VO4.00 ) 
i oe On oy) hy <a ee © ee © ey Se ey 12-15 12-198 
= -@e -10e . - . - . . ° e ° e “ 
- 12- 3-29 «17-65 «17-65¢ «18-368 18-360 28-198 28-86 26-900 29-98 29-106 





«10 


K10 


S€Q 0127 
CZCHICO CHRCV)-11 HOST EXERCISE MACRO VO4.00 02:24:05 PAGE M-1 
| GROSS REFERENCE TABLE (CREF V04.00 ) 
DATERR 1-710 6-41 6-48 7-9 7-21 8-22 8-39 8-68 8-85 9-22 9-36 10-10 10-35 11-8 
11-15 13-13 13-30 14-29 14-36 14-43 «14-54. 14-61 s«14-68 ~=-:15-22 «18-29. 18-40 ~—s-:17-113 22-29 
| ii. . . 
ERROR «1-610 9 6-31.0-12-25) 1-35 12-21. 12-16 12-31 13-22 :13-50-17-12,—Ss«17-79 17-89 :17-99 18-46 
22-49 23-22 24-32 
“mT 1-81@ 17-13 16-47 23-23 24-33 29-55 
MTPS 1-101@ 3-12 3-89 5-5 12-4 12-24 17-65 18-36 
PNTM 1-878 3-24 3-25 3-33 3-40 3-47 3-50 3-57 3-61 5-15 5-41 5-43 6-12 6-13 
6-14 8-25 8-42 = 8-71 8-88 9-25 9-41 16-10 16-16 16-17 16-29 16-37 16-49 16-75 
16.78 16-81 17-19 17-20 17-21 17-35 17-55 17-82 17-92 17-102 17-116 16-48 18-49 16-50 
18-59 186-67 18-71 16-72 16-63 16-114 18-154 22-40 22-52 23-24 23-25 23-29 23-33 23-37 
23-50 25-4 25-33 26-7 27-41 27-45 27-49 28-23 286-37 28-61 29-37 29-96 29-111 29-114 
29-125 "128 30-19 30-22 30-28 30-67 33-36 33-40 33-45 34-9 
REGRES 1-115@ 35-16 35-25 35-34 35-43 35-52 
REGSAV 1-111@ 35-12 35-21 35-30 35-39 35-48 
SCOPE 1-94@ 6-32 6-42 6-49 7-10 7-22 8-28 8-45 8-74 8-91 9-28 9-44 10-11 10-40 
11-9 11-16 11-26 11-36 12-13 12-17 12-32 13-14 13-23 13-31 13-51 14-30 14-37 14-44 
14-55 14-62 -14-69»=s-« 15-28 15-30: 15-41 -«:17-85.—Ss«17-95.—Ss—s«17-10S-—s:17-119 22-30 22-440 22-56 = 27-32 





